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DEVELOPMENT OF THIS PROGRAM HAS BtEN VIA MODULES wHICH ARE DEDICATE! 

perform specific tasks, some of the modules are tests in themselves 

AND OTHERS ARE CALLED ON TO PERFORM A SPECIFIC FUNCTION AND THEN RETURN 
TO THE CALLER. 

THE FIRST TYPE OF MODULE. THE TESTS, HAVE THE FORM ZVKjLX AND ZVCJFS, 
THE X SIGNIFIES THE LETTER OF THE TEST AND IS ALSU THE RESPONSE TO THE 
QUESTION "NEXT ?J". THESE TESTS ARE ZVKJLB, ZVKJLC, ZVkJLF, 

ZVKJLI, ZVKJLK, ZVKJLL, ZVKJLM, ZVKJLN, ZVKJLP, ZVKJLR AND ZVKJFS. 

THE SECOND TYPE OF MODULE, IS THE SPECIFIC FUNCTION OR LIBRARY 
MODULE. THESE HAVE THE FORM ZVKJYX AND ZVKXX, WHERE THt Y IS ANY 
LETTER EXCEPT L. 

ERROR LABELS 

ERk0kTA6ELS IDENTIFY THE TEST IN WHICH AN ERROR OCCURS, THE PART 
OF THE TEST AND THE SPECIFIC ERROR. THE MAJOR LABEL IDENTIFIES THE 
TEST AND ThESE ARE B, C, F, I, K, L, M, N, P, k AND FS. IF THE TEST 
IS COMPQStD OF SEVERAL PARTS THEN THE NUMBER FOLLOWING THE TEST 
LETTER WILL IDENTIFY THE PART. 

THE MINOR LAbEL, FLAGS THE SPECIFIC ERROR AND IS TWO CHARACTERS LONG. 
THESE IN GENERAL ARE SET BY THE FUNCTION MODULES, WHILE THE MAJOR 
LAbELS ARE SET BY THE TEST MODULES. 

IN GENERAL MAJOR LABELS THAT BEGIN WITH b, I OR L INDICATE PROBLEMS 
WITH THE MDC OK ADAPTER, WHILE THOSE THAT BEGIN WITH C, F, K, M, N, P 

OR R - -- ~~ . ... ... . ■ - * 


CRMS3,•REV G»,CARDKEADEK / PUNCH TV (SAF) 
CATED TO 


THERE MEANINGS. 

DESCRIPTION OF 

NAME 

CALLED BY 

CARD 

** 

ZVKUld 

ZVKGB 

## 

GET bktAK 

ZVKGC 

GET CHAR 

ZVKJCA 

COMPARE ASCII. 

ZVKJCC 

COMPARE CHECKSUMS 

ZVKJCS 

CHECK STATE 

ZVKJET 

CALCULATE ELAPSED TIME 

ZVKJFB 

ZVKJGC 

FILL BUFFER 
generate checksums 

ZVKJIL 

ZVKJIO 

ZVKJMC 

ZVKJPD 

IOLD 

INOUT 

MICRO 

PUNCH A DECK 

ZVKJPN 

PUT NUMBER 

ZVKJRE 

ZVKJSE 

REPORT ERROR 

check status for errors 

ZVKJTC 

generate test checksums 

ZVKJTD 

time delay 

ZVKJWR 

ZVKJLB 

ZVKJLC 

ZVKJLF 

ZVKJLI 

ZVKJLK 

ZVKJLM 

ZVKJLM 

ZVKJLR 

ZVKJFS 

ZV$BK 

WAIT FOR RETURN 

B 

C 

F 

I 

K 

M 

N 

R OR V 

5 

** 


DESCRIPTION 


CONTAINS MOST OF THE L 
AND IS THE TEST WHICH 


declerektions 

H ASKS THE QUESTION 

"NEXT ?; • . 

LIBRARY OF„MACROS AND EXIERNALS 
CHECKS FOR UNSOLICITAtD INPUT 
FROM THE CONSOLE* 

INPUT 2 CHARACTERS VIA THE CONSOLE 
ONE VIA THE CONSOLE 
ROUTINE TO OUTPUT ASCII WAS 
AND SHOULD BE VALUED AND COLUMN 
NUMBER. CALLED BY TEST N. 

CALLED BY VERIFY TO CHECK 
STORED CHECKSUMS AGAINST KtAD 
CHECKSUMS AND TO OUTPUT ANY 
DIFFERENCES. 

CHECKS STATE OF DEVICE AND PROMPTS 
USER TO START OK STUP DEVICE. 

WILL PRINT THE NUMBER OF CARDS READ 
UR PUNCHED AND THE RAIL. 

INITIALIZES A BUFFER TO A VALUE 

CONVERTS A READ OR PUNCHED CARD 

INTO 8 CHECCKSUM WORDS 

DATA TRANSFER PROCEDURE 

READ OR WRITE PROCEDURE 

ENTERS TEST MODE AND ISSUES MICRO OPS 

GENERATES AND PUNCHES SPECIFIC PATTERNS 

CALLED BY LETTER P. 

UUTPUTS A SPACE SUPRESStD DECIMAL 
NUMBER. 

ISSUES TE ERROR REPORT 

determines AND displays range 

AND STATUS ERRORS. 


100 CARD TEST DECK 

to generate the 


used when »hav 
is answered ye . .. _ 

CHECKSUMS for that deck 

CALLED BY VERIFY. TO DELAY 
BETWEEN CARD PICKS 
WAITS FOR A C/R, BEFORE RETURN I NlG 
tLECTRONICS TEST, CALLS TEST I AND 
DEVICE CONTROLS 
PUNCH AT 400 CPM 

interrupt TEST 
READ AND PUNCH TEST 
PUNCH ascii DECK 
READ ASM l DECK 
READ OR VERIFY ANY DECK 
RESTART OR START OF PROGRAM 
CONTAINS THE CTRL LINKS AND IDEFS 
CROSS REFERENCE FOR CRMS3 




Z 

V 

C K 
A J 
R C 
D A 




CALLING ROUTINE 

ZZZZZZZZZZZZZZ 4 ZZZZ 

vvvvvvvvvvvvvvvvvvv 

KKKKKKKKKKKKKKKKKKK 

JJJJJJJUJUJJJJUJJUJ 

Gi I IMP5TWLLLLLLLLLL 
CLQRCOECRbCF I KLMNPR 


i 1 

S K 


CARD 

ZVKGB 

zvKgc 

ZVKJCA 

ZVKJCC 

ZVKJCS 

zvkjet 

ZVKJFB 

ZVKJFC 

ZVKJGC 

ZVKJIL 

ZVKJIQ 

ZVKJIR 

ZVKJMC 

ZVKJPD 

ZVKJPN 

ZVKJRE 

ZVKJSE 

ZVKJTC 

ZVKJTD 

ZVKJWR 

ZVKJLB 

ZVKJLC 

ZVKULF 


XXX 


X X 
X X 
X X 


X X 


X X 


X X 


X 

X X 
X X 


X X 


X X X X 
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PACE 


2 


fefeL 


4VKJU 

ZVKJlK 

2VKJCL 

2VKJLM 

ZVKJlL 

2VKJLN 

ZVKJLP 

ZVKJlR 

ZVKJFS 


X 

X 

X 

X 

X 

X 

X 

X 


X X 
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E CARD.LIST 
UOUOOi 

000004 

0001)03 

0Q0004 

OOOOOb 

OOOOOo 

000007 

ooooos 

00U009 

OOOOiO 

oooou 
00001 2 
000013 
000014 
00001 b 
000016 
000017 
00001 b 
000019 
000020 
000021 
000022 
000023 
000024 
00002 b 
000026 
000027 
00002 b 
000029 
000030 
000031 
000032 
000033 
000034 
00003b 
000036 
000037 
00003b 
000039 
000040 
000041 
00004c 
000043 
000044 
00004b 
000046 
000047 
00004b 
000049 
OOOObO 
000051 
000052 
000053 

000054 

000055 

000056 

000057 

000058 

000059 

000060 

000061 

000062 

000063 

000064 

000065 

000066 

000067 

00006b 


'19/78 1422 #4R W 05/19/78 1422.4 

title card * • rev oo« 

k 

* DESCRIPTION 


114442200U0 


THlb PROGRAM TESTS AND VERIFIES PROPER OPERA FI ON OF ALL LEVEL-6 CAKO 
EQUIPMENT. THt PROGRAM *ILL RUN UN THt FOLLOWING SUBSYSIEMS: 

CRM9101 DEViCE-PAC FOR CARD RtADER 

CRU9101 300 CPM PUNCHtD CARO RtADER 

CRU9102 300 CPM PUNCHED AND MARKtD CARO READER 

CRU9103 500 CPM PUNCHED CARO READER 

CRU9104 500 CPM PUNCHED AND MARKED CARO READER 

CRU9108 300 CPM READER 

CRU9109 300 CPM READER WITH IBM MS 

CRU9110 300 CPM READER WITH HIS MS 

CRU9111 500 CPM READER 

CRU9U2 500 CPM READER WITH IBM MS 

CRU9I13 500CPM REA3ER WITH HIS Mb 

CRM9103 DEVICE PACC FUR READER/PUNCH UR PUNCH 

PCU9101 214-1A CARO PUNCH 

CCU9101 214-2A CARD READER/PUNCH 

CRU9101 51 COLUMN CARD OPTION (NUT AVAILABLE THIS REL) 


REVISION HISTORY 


NOV 1975 
UAN 1976 
APR 19 f 6 
DEC 1976 
APR 1977 
JUL 1977 
APR 1978 


ORISINAL RELEASE (RtADER ONLY) 


CRMS 1 

CRMX1 (SaF AND LAF) 
CRMX2 (bAF AND LAF) 
CRM53 READER PUNCH 


NAME C^MS3 - SAF 

DOCUMENT 60129821-007 


THIS DOCUMENT AND THE INFORMATION CON IAINED THEREIN IS CQNFIDENTAL 
AND PROPRIETARY TO AND THE EXCLUSIVE PROPERTY OF HONEYWELL INFORMA¬ 
TION SYSTEMS INC. IT lb MADE AVAILABLE ONLY TO HONEYWELL AUTHORIZED 
RECIPIENTS FOR THEIR USE SOLELY IN THt MAINTlNANCe AND OPERATIUN OF 
HONEYWELL PRODUCTS. THIS DOCUMENT AND INFORMATION MUST BE MAINTAINED 
IN THE STRICTEST CONFIDENCE? IT MUST NO I BE REPRODUCE WHOLE OR 
IN PART? AND IT SHALL NOT BE DISCLOSED 10 ANY OTH£R pARTY WITHOUT 
THE PRIOR WRITTEN CONSENT OF HONEYWELL. 

DISTRIBUTION 

THIS PROGRAM wAS PREPARED USING THE NATIVE SYSTEM AND THE ZVSLiB 
LIBRARY. INPUT TO THE PROGRAM DISTRIBUTION FACILITY CONSISTED OF; 

1 - LINKED I MACE ON DISKETTE 

2 - HARD COPY OF THE LISTING FILt FROM THE 

ASSEMBLER AND LINKER 

THE EXECUTABLE IMAGE MAY BE REPRODUCED FOR SHIPMENT AS A CARD DECK* 

A PAPER TAPE, OR A DISKETTE FILE MEMBER. WITHIN The FILE IT HAS THE 
MEMBER NAME "CRMS3”. 

THE LISTING MAY BE REPRODUCED AS A MICROFICHt. A FORMAL SET OF DIS¬ 
TRIBUTION RULES ARE FOUND IN THE DOCUMENT 60I293H ENTITLED 
”T 6 D INDEX”. 
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000069 
000070 
000071 
00007* 
000073 
000074 
000075 
000076 
000077 
000076 
000079 
000080 
000081 
00008* 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
00009* 
000093 
000094 
000095 
000096 
000097 
000096 
000099 
000100 
000101 
00010 * 
000103 
000104 
000105 
000106 
000107 
000106 
000109 
OOOliO 
000111 
00011 * 
000113 
000114 
000115 
000116 
000117 
00011b 
000119 
000120 
000121 
00012 * 
000123 
000124 
000125 
000126 
000127 
000126 
000129 
000130 
000131 
00013* 
000133 
000134 
000135 
000136 
000137 
000136 
000139 
000140 
000141 
00014* 
000143 
000144 
000145 
00014b 
000147 
000146 
000149 
000150 
000151 
00015* 
000153 
000154 
000155 
000156 
000157 
000156 
000159 
GOO 160 
000161 
00016* 
000163 
000164 


RESTRICTIONS 

IT REQUIRES A MINIMUM OF 16K MEMORY TO RUN AND IS NON-RttOCATABLE. 
OPERATION 

LOAD THE PROGRAM AND START (OR RESTAR I) AT LOCATION OlOO HEX* 

IF A CONSOLE IS PRESENT, VERIFY CORRECT PROGRAM IDENTIFICAUON 
FROM THE LISTING OF THE 1/0 EQUIPMENT BY CHANNEL NUMBER AND 
ID-CODE* THIS LISTING WILL BE FOLLOWED bY THfc LOWEST AVAILABLE 
AND HIGHEST AVAILABLE MEMORY LOCATION* 

THE FOLLOWING IS A TYPICAL RESULT OF LOADING THE PROGRAM 
AND STARTING TO RUN* 

CRMS3, REV G, APR 20, 1978 
*V$LIB REV. 7 
ZVSAF s 1 
WDT 

CHAN DEVC ID 

0400 DSKT 2010 

0480 DSKT 2010 

0500 CONS 2019 

1300 CDR *008 

1380 LPT *006 

1400 PNCH 208A 

MEMORY LOW OOOOXXKX 

MEMORY HIGH 00007FFF 32K 

THE PROGRAM WILL ask; 

CHANNEL NUMBER ?J 1400 C/R 

THE RESPONSE SHOULD BE TRE 4 DIGIT HEX CHANNEL NUMBER ASSIGNED TO 
THE CARD DEVICE 10 BE TESTED. DEFAULT VALUE Is 1300 
AND ON SUBSEQUENT RESTARTS A C/R ALONE WILL RETAIN THE 
PREVIOUS VALUE. 

THE FIRST EXECUTION OF THE PROGRAM WILL THEN ASK; 

POWER FREQUENCY ?; 60 C/R 

RESPOND WITH THE POWER FREQUENCY IN HE*TZ, USUALLY 6 o IN THE USA AND 
50 ELSEWHtRE. DEFAULT VALUE IS 60 HZ. IHIS UUfcSTJON IS NUT ASK ON 
6/40 SYSTEMS. 

IF THE DEVICE bEING TESTED IS A CARD READER THEN THE FOLLOWING 
QUESTIONS WILL BE ASKED; 

MARK SENSE ?: Y (C/R) 

40 COLUMNS ?; N (C/R) 

ANSWER WITH ONLY ONE CHARACTER, EITHER (Y) OR (N). RESPONDING WITH 
N TO MARK SENSE ?? WILL NOT ASK THfc- 40 COLUMN QUESTION SINCE ALL 
PUNCHED CARDS ARE 80 COLUMN. ANSWERING WITH A Y CAUSES THE 40 COLUMN 
QUESTION TO BE ASKED* 

ANSWERING Y TO THE 40 COLUMN QUEST I UN MEANS THE READER IS 

CAPABLE OF READING IBM MARKED CARDS AND I HAT THE READER 

IS SET TO 40 CULUMNS. ANSWERING N REQUIRES THfc IBM READER 

TO BE SET TO 80 COLUMNS QR THAT THE READER IS A HIS READER, IN WHICH 

CASE THE 40/80 SWITCH IS DISABLED AND IS PRESET TO 80 COLUMNS. 

THE QUESTION "NEXT ?” WILL BE ASKED WHICH REQUIRES A LETlEK AND A c/K 
RESPONSE. LETTER A WILL RUN ALL ELECTRONICS AND DtVlCE TESTS AND IS 
THE RESPONSE RECOMMENDED. THE OPTIONS WILL BE EXPLAINED BELOW. 

A C/R ALONE WILL RETAIN THt LAST RESPONSE TO "NEXT ?•*. DEFAULT 
IS "A" FOR ALL. 

CONSOLE SELECTION 


THE CONSOLE SEARCH RULES ARE; FIND THt CONSOLE WITH THE LOWEST 

CHANNEL NUMBER CONNECTED THRU A MDC. IF THERE IS NO CONSOLE ON 

AN MDC, THEN StARCH FOR A TERMINAL WIIH THE HIGHEST CHANNEL 
NUMBER ASSIGNED TO AN ACLA ADAPTER ON A MEC CONTROLLER* 

IE. NO ASYNC ADAPTER IS FOUND, THEN GU TU THE FULL CONTROL PANEL. 

THERE ARE THReE CUN50LE CHANNEL OPTIONS DETERMINED BY THE VALUt 
OF LOCATION ZVSI I'Y. 

IF ZVSTTY EQUALS (0000), SEARCH FOR A CONSOLE* 

IF ZVSTTY EQUALS (FFFF), ASSUME THERE IS NO CONSOLE, 

IF ZVSTTY EQUALS NEITHER (0000), NQR (FFFF), THEN if IS THE 
CONSOLE CHANNEL NUMBtR. NOTE; DEFAULT IS TO SEARCH F0« A CONSOLE, 

ALL CONSOLE I/O IS EVEN PARITY. IF CONSOLE IS ON MLC, M MUST BE 
ASYNC AND THE BAUD RATE SET AT 1200 TO MATCH THE PROGRAM SUPPLIED 
RATE, IF IT IS NECESSARY TO CHANGE THt PROGRAM BAyD RATt, THEN THE 
NEW BAUD RATE CODE SHOULD BE PU1 INTO LOCATION ’»ZV$BUD M IN HEX. 

THE TERMINAL uAUD RATE MUST BE SET TO MATCH THIS NEW BAUD KATE. 

THE CORRECT HEX VALUt MAY BE OBTAINED FROM THE FOLLOWING TABLE. 


000165 

000166 

* 

* 

ACLA l.D. 
BAUD-RATl 

(2118) (2110) 

(2108) 

000167 

* 

50 

0 

1 

000168 

* 

75 

1 

2 

000169 

* 

no 

2 

3 

000170 

* 

134 

3 

4 

000171 

* 

150 

4 

5 

00017* 

# 

*00 

5 


000173 

# 

300 

6 

~6~ 

000174 

# 

600 

7 

7 

000175 

* 

900 

«...— 

8 

000176 

* 

1050 

8 


000177 

* 

1*00 

9 

9 

000178 

* 

1800 

10 (A) 

10 (A) 

000179 

* 

2000 

11 (B) 


000180 

* 

2400 

1* (C) 

~Il~(B) 

000181 

# 

3600 


12 (C) 
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000182 

000183 

000184 

000186 

000186 

000187 

000186 

000189 

000190 

000191 

000192 


4800 

7200 

9600 

19200 


13 (0) 


14 

16 


(E) 

(F) 


13 

14 
16 


( 0 ) 

(E) 

(F) 


TO MAKE ANY OF THE ABOVE CHANGES* LOAD AND HALT THE PROGRAM 
BEFORE EXECUTION, INSERT CHANGES THEN EXECUTE. MEMORY LOCATIONS 
OF M 2V$TTY" AND »ZV$bUD» MAY BE FOUND IN THE MAP AT END OF LISTING. 

CONSULT LEVEL-6 T6V MANUAL "AW94” FOR DETAILS ON HOW TO LOAD THE 
TESTS. 
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000193 
000194 
000195 
000196 
000197 
000196 
000199 
G0020U 

000201 

000202 

000203 
000204 
000205 
000206 
000207 
000206 
000209 
0002 10 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000216 
000219 
000220 
000*21 
000222 
000223 
000224 
000225 
000226 
000227 
000226 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000236 
000239 
000240 
0002^1 
000242 
000243 
000244 
000245 
000246 
000247 
000246 
000249 


*■ 0PTIQN5 


RESPONSES T"NEXT ?"i 

A - ALL TESTS, ELECTRONIC AND DtVlCE 
B - ALL ELECTRONIC TESTb ONLY 
C - DEV 1Ct INTERLOCKS AND CQNTKOLb 
D - ALL DEVICE RELATED TEbTb 
F - PUNCH AT 400 CPM 
I * INTERRUPT TEbT 
K - READ/PUNCH SAME CARD 
L - TEbT MODE ♦ DATA LOOPBACK 
M - PUNCH AbUI 3 CARD TEbT DECK 
N - READ AbC11 3 CARD (4 Mb) TEST DECK 
P - PUNCH RANDOM OR INPUTTED DATA 
R - READ ANY DECK 

bTART/RESTART PROGRAM 
VERIFY LA3T PUNCHED UR 


(DEVICE NEEDED) 


(DEVICE 

(DEVICE 

DEVICE 


NEEDED) 

NEEDED) 

NEEDED) 


(DEVICE NEEDED) 


b - 
V 


(DEV 

(DEV 

(DEV 

DEV 


NEEDED) 

NEEDED) 

NEEDED) 

NEEDED) 


READ DECK (DEVICE NEEDED) 


A TEbT btUUENCE MAY BE INTERRUPTED TO TERMINATE DATA MIbCOMPARtS 
Ab IN VERIFY MODE OR WHENEVER THE bTAIEMENT "TYPE * CARR 1AGt RETURN* , 
WHEN READY" APPEARS, BY bTRlKlNG THE CONSOLE BREAK KEY# THIS WILL 
RETURN THE PROGRAM TO THE "NEXT ??" QUESTION, AT WHICH POINT ANY 
OPT ION CAN BE SELECTED. 

ERROR REPORTING 


000250 

* 


000251 

* 

THE F( 

000252 

* 

THEIR 

000253 

* 


000254 

* 


000255 

# 

major 

000256 

* 


000257 

* 

B1 

000256 

* 

B2 

000259 

* 

Cl 

000260 

* 

C2 

000261 

* 

C3 

000262 

* 

C4 

000263 

* 

C5 

000264 

* 

FI 

000265 

* 

F 2 

000266 

* 

11 

000267 

* 

K1 

000266 

* 

K2 

000269 

* 

El 

000270 

* 

L2 

000271 

* 

L3 

000272 

* 

L4 

000273 

* 

L5 

000274 

* 

L6 

000275 

# 

Ml 

000276 

* 

M2 

000277 

* 

M3 

000276 

* 

N1 

000279 

* 

N2 

00028U 

* 

N3 

000281 

* 

N4 

000282 

* 

PI 

000283 

* 

P2 

000284 

* 

P3 

000285 

# 

P4 

000286 

* 

P5 

000287 

* 

R1 

000286 

* 

R2 

000289 

* 

FS 

000290 

# 


000291 

* 

MINOR 

000292 

* 


000293 

# 

AM 

000294 

# 

BM 

000295 

# 

CA 

000296 

# 

CC 

000297 

* 

CD 

000298 

* 

CG 

000299 

# 

Cl 

000300 

# 

CL 

000301 

# 

CP 

000302 

* 

CR 

000303 

* 

CS 

000304 

# 

Cw 

000305 

# 

DE 


DETECTED ERRORS ARE REPORTED Ab FOLLOWS; 

ERR ABCD ft LLlL » MESSAGE ABOUT ERROR 
WHERE? 

AB s MAJOR LAdEL, REFERS TO SUB-TEST BEING PERFORMED 
A = TEST TYPE 
B ? PART OF TEbT 

CD = MINOR LABEL, INDICATES SPECIFICALLY THE ERROR DETECTED 
LLLL s HEX LOCAIION OF DETECTED ERROR 

IF THE ERROR DETECTED INVOLVES STATUS THE REPUKT WILL BE AS FQLLUWS; 

ERR ABSE « LLLL, STATUS WAS XXXX, STAlUb SHOoLD BE YYYY 
MESSAGE ABOUT EKRUK 

WHERE; 

AB s MAJOR LABEL, REFERS TO SUB-TEST BEING PERFORMED 
SE = MINOR LABEL, STATUS ERROR 
LLLL s HEX LOCATION OF THE STATUS COMPARE 
XXXX s HEX STATUS WORD WAS 
YYYY s HEX STATUS WORD SHOULD BE 

WHEN A STATUS ERROR HALT OCCURS ON A NO CONSOLE bySTEM* 

D4 WILL CONTAIN STATUb aAS AND D5* STATUS SHOULD BE 

THE FOLLOWING IS A SUMMARY OF ALL MAJOR AND MINOR LABELS AND 
THEIR ERROR INDICATION; 

LABEL (LABEL 1) 

— INITIALIZATION AND CONFIGURATION OF 2008 
— INITIALIZATION AND TASK SETTING OF 208A ♦ 2088 
— CAN * T PUT DEVICE ON-LINE 
— STOP SWITCH DEFECTIVE 

— OUTPUT STACKER SWITCH DEFECTIVE ON PUNCH 
— LID SWITCH DEFECTIVE UN PUNCH 
— READ DOUR INTERLOCK DETECT IVt ON PUNCH 
— INI IILiZATlUN JF PUNCH FOR 400 CPM PUNCH 
— ACTUAL PUNCHING OF 400 CPM DtCK 
— INTERRUPT TEST 

— INITIALIZATION OF RtADER/PUNCH FOR KEAD/PUNCH 
— ACTUAL READING AND PUNCHING 
— BINARY LOGPBAC< FOR 2008 
— ASCII LOOPBACK FOR 2008 
— BINARY LOOPBACK FOR PUNCH 
— TEST READER PROMS FOR PUNCH 
— TEST PUNCH PROMS FOR PUNCH 
-- TEST JAM TIME JUT ONE-bHOT FQR PUNCH 
— PUNCH ASCII CARD 
— PUNCH ILLtGAL ASCII 
-- PUNCH BLANK CARD 
— READ FIRST ASCII CARD 
— READ 2ND MARK SENSE ASCII CARD 
— READ ILLEGAL ASCII CARD 
-- READ BLANK CARO 

— INITIALIZATION FOR RANDOM PUNCH 
-- COPY A CARD FOR PUNCHING A DtCK 
— COPY A CARD USING A DIFFERENT READER 
— INPUT DATA FROM A KEYBOARD, FOR PUNCHING 
— PUNCH THE SPECIFIED DECK 
— INITIALIZE REAOtK FOR READ OK VERIFY MODE 
— READ DECK OF CARDS, GENERATE OK COMPARE CHECKSUMS 
— FRESH START, FIRST I/O 

LAotL (LABEL 2) 

— ASCII NOT SET ON INITIALIZE 
— BINARY NUT SET ON CONFIGURATION 

— ASCII MISCOMPARE, CONSOLELESb SYSTEMS ONLY (2008 
-- CHECKSUM MISCOMPARE, COLUMN ERROR (2008 

— CHECKSUM MISCOMPARE, DROPPED BITS (2008 

— CHECKSUM MISCOMPARE, PICKED BITS (2008 

— CLOCK INTERRUPTED, CAN'T LEV BACK 
— CHECK LIGHT ON 
— CP ROPT DEVICE 

— CHtCKSUM MISCOMPARE, ROW ERROR (2008 

— STATE OF DEVICE WRONG 
— COUNTtR WRUNG IN TEST MODE 

— BINARY DATA LOOPBACK ERROR (208A 




(2008) 

(2008) 

♦ 208A) 

♦ 208 A) 

♦ 208A) 

♦ 208A) 
(ALU 
(ALU 
(ALL) 

♦ 208A) 
(ALL) 

(2008) 

♦ 2088) 


( 
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000306 

000307 

00030b 

000309 

000310 

000311• 

000314 

000313 

00031* 

0003 i 3 

000316 

000317 

00031b 

000319 

000320 

000321 

000322 

000323 

000324 

000323 

000326 

000327 

00032b 

000329 

000330 

000331 

000332 

000333 

000334 

000333 

000336 

000337 

00033b 

000339 

000340 

000341 


# 

DS 

-- 

DROPPED STROBE 

(200b 


2Q8A) 

# 

FO 


FLAG NOT ON IN ZHIAFB 



(ALL) 

* 

IA 

wmm 

INTERRUPT REG wRONG - OUTPUT AAAA 



(ALL) 

# 

1C 

—— 

WRONG INVALID CONVERSION 



(ALL) 

# 

ID 


WRONG DEVICE ON SPECIFIED CHANNEL 



(ALL) 

* 

IN 

«*■» 

10 INSTRUCTION NAK•D 



(ALL) 

* 

IU 

«»«■ 

IOLD NAK * D 



(ALL) 

* 

1R 

—— 

CAN * T MOVE CP LEVEL FROM 0 



(ALL) 

* 

IS 

—— 

INTERRUPT REG WRONG - OUTPUT 33S3 



(ALL) 

* 

MA 

* — 

MEMORY ADDRESS WRONG AFTER IOLD 



(ALL) 

* 

MW 

«•» 

XFERED TO MANY WORDS WITH AN IOLD 



(ALL) 

* 

NT 

•>« 

JAM UNE SHOT DIDN'T TIME OUT IN 1/2 SEC 



(ALL) 

# 

os 

— — 

ENABLE EJECT ON ERROR FAILED 



(208A) 

* 

PC 


PROGRAM EJECT FAILED 



(208 A) 

* 

RE 


RANGE REGISTER WRONG AFTER IULD 



(ALL) 

* 

Rl 


DEVICE DIDN'T 3UPT - SHOULD HAVE 



(ALL) 

# 

R2 


DEVICE RUPTED - SHOULDN'T HAVE 



(ALL) 

* 

R3 

— — 

PENDING RUPT WHEN CP = 63 



(ALL) 

* 

SE 

«... 

STATUS ERROR 



(ALL) 

* 

SR 

— — 

ISA SREG WRONG 



(ALL) 

# 

Sw 

•»«* 

ERROR IN MARK * 40 OR SI COLUMN STATUS BITS 



(2008) 

* 

TC 

-- 

TASK NOT CLEARED ON INITIALISE 

(20B8 

♦ 

2Q8A) 

* 

TO 


JAM UNE SHOT TIMED OUT LESS 1 HEN ISO MS 

(2088 

♦ 

208A) 

* 

TS 


Task not cleared by output task 

(20b8 

♦ 

208A) 

# 

TW 


CANNUI SET TAS< WORD 

(20bb 

♦ 

208A) 

* 

wc 

»•> 

WRONG VALID CONVERSION 



(ALL) 

* 

WF 

... 

WRONG FLAG ON IN ZHIAFB 



(ALL) 

* 

WD 

-- 

WRONG DEVICE THAT RUPTED 



(ALL) 


# 


* THIS PROGRAM LAN BE OPERATED WlIHQuT A CONSOLE PRESENT. 

* UNDER THtbE CIRCUMbTANC^S ERROR DATA IS LIMITED TQ THE MAjUR 

* AND MINOR ERROR LAbELb DISPLAYED IN HARDWARE REGISTERS "Rl" 

* AND ”R2” RESPECTIVELY* AND "LLLL” DISPLAYED IN "02"* ALL 

* PARAMETER ENTRIES TO THE PROGRAM MUST BE MADE VIA REGlSItR ”R1". 

* THE PROLtSS lb FURTHER EXPLAINED IN MANUAL "AW94” ENTITLED 

* ’’LEVEL-6 SYSTEM CHECKOUT AND HV MANUAL” * 


< 
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000342 

/ 

000343 

* 

000344 

* 

000345 

* 

000346 

* 

000347 

* 

000346 

* 

000349 

* 

000350 

* 

000351 

* 

000352 

* 

000353 

* 

000354 

* 

000355 

* 

000356 

# 

000357 

# 

000356 

# 

000359 

* 

000360 

* 

000361 

* 

000362 

* 

000363 

# 

000364 

* 

000365 

# 

000366 

* 

000367 

* 

000366 

* 

000369 

# 

000370 

* 

000371 

* 

000372 

# 

000373 

# 

000374 

* 

000375 

# 

000376 

* 

000377 

* 

000378 

* 

000379 

* 

000380 

* 

000381 

* 

000382 

* 

000383 

* 

000384 

* 

000385 

* 

000386 

# 

000387 

* 

000388 

* 

000389 

* 

000390 

* 

000391 

* 

000392 

* 

000393 

* 

000394 

* 

000395 

* 

000396 

* 

000397 

* 

000398 

# 

000399 

# 

000400 

* 

o8cko! 

* 

* 

000403 

* 

000404 

* 

000405 

* 

000406 

* 

000407 

000406 

* 

* 

000409 

* 

000410 

# 


oqolII 

000413 

000414 

000418 

000416 

000417 

000418 

000419 

000420 

000421 

000422 

000423 

000424 

000425 

000426 

000427 

000428 

000429 

000430 

000431 

000432 

000433 

000434 

000435 

000436 

000437 

000436 

000439 

000440 

000441 

000442 

000443 

000444 

000445 

000446 

000447 

000448 

000449 

000450 

00045.1 

000452 

000453 

000454 


STATUS WORDS 


STATUS WORD FOR 2008 (READER) 


L 


i 


i 


11 ---- 


»»»♦-- UNCORRECTED MEMORY ERROR 

». »-BUS PARITY ERROR 

NONEXISTENT RtSUURCE 
CORRECTED MEMURY ERROR 
ILLEGAL ASCII CODE 
READ CHECK 

EXTERNAL CLOCK I RACK 
51 COLUMN MODE 
40 COLUMN MODE 
MARK SENSE MODE 
DATA SERVICE RAIE ERROR 
NON DATA SERVICE REQUEST 
DEVICE READY 


STATUS WORD FOR 2088 / 208A (PUNCH - READER/PUNCH) 


lit* —— 
f f•--- 
11 .... 
i----- 


UNCORRECTED MEMORY ERROR 
BUS PARITY ERROR 
NONEXISTENT RESOURCE 
CORRECTED MEMORY ERROR 
HOPPER EMPTY 

INTERVENTION ACQUIRED (JAM) 

READ STATION OR PUNCH ECHq CHECK-DEVICE 

READ REGISTRAIION OR PUNCH ECHO CHECK 

INVALID HOLLERITH CARD CODE 

DATA SERVICE RATE ERROR 

NON DATA SERVICE REQUEST 

DEVICE READY 


NOTE 1 - PUR ALL CARD EQUIPMENT 

~~1T~IS SUGGEST A MINIMUM DECK OP 100 CARDS BE TESTED WHENEVER THE 

'♦total." or "Desired total" question is asked. 

striking the break key whenever "type *carriage return* when ready" 

IS ASKED * WILL RETURN TO THE "NEXT ?5" QUESTION. 

AT THE BEGINNING OF EACH DISCRETION UP EACH TEST R, R/P OR P MAY 
APPEAR. THESE ARE THE DEVICES FOR WHICH THE TEST APPLIES. R FOR 
READER. R/P FOR READER AND PUNCH AND P FOR PUNCH, 

COLUMNS REPORTED IN ERROR FOR MARK SENSE MODE ARE FOR HIS CARDS. IF 
IBM CARDS ARE USED, THEN THE COLUMNS REPORTED ARE 1 GREATER , 


r 4 "\ 

I " 

y 


NOTE 2 - FOR KEADER/PUNCH OR PUNCH 

""upon STATUS errors while punching* THE ERROR cards 
WILL BE OFFSET STACKED AND SHOULD BE VERIFIED BY T 
RATE IN CPM WILL ALSO BE SUPPRESSED. 


the operator, the 


DURING VERIFY MODE* CARDS WHICH CAUSE STATUS ERRORS WILL BE OFFSET 
...*.. “IScOMPA.. . . . ’**'■ ... 


STACKED AND DATA MJi 
THE DATA ERROR CARD. 


PARES WILL UFFSEI THE CARD FOLLOWING 


EXTRA £AKDS bHOULD BE A£DED TOTHE BACK OF ANY DECK BEI^G READ* 

. . . . r !n • •• 


PUNCHED QR VERIFIED TO INSURE THE DEVICE IS ALWAYS 
AFTER A READ UR PUNCH OPERATION THE CARDS REMAINlfv 
SHOULD BE RUNOUT. 


THE TRANSPORT 


FOR TEST MODE TO OPERATE CORRECTLY ON TH£ 214 
PUNCH OK PUNCH ONLY, ALL PANEL INDICATORS EXCEPT 
MUST BE OFF (l.E. TRANSPORT). 


NOTE 3 - FOR PUNCH ONLY 


8S A 8fK 


ECK 


CARDS PUNCHED MAY BE VERIFIED ON A READER ON AN DIFFERENT CHANNEL 
BY RESPONDING TO "READER CHANNEL NUMBER ?;" WITH THE APPROPRIATE 
HEX NUMBER FOR THE THAT CHANNEL* WHILE IN VERIFY MODE* 


TEST A - ALL TESTS (R, R/P* P) 


RESPONDING TO "NEXT ?:" WITH THE LETTER "A" wILL RUN ALL TESTS THAT 
ARE 'PERTIHENT TO THE DEVICE BEING TESTED, THIS OPTION IS RECOMMENDED 
AT L£A5T ONCE FOR THE GIVEN R|ADE«* RtADER/PuNCH OR PUNCH AND 


REQUIRES THE DEVICE TO BE PRESENT 
TEST B - ELECTRONICS ONLY (R* R/P* P) 


ALL ELECTRONIC TESTS WluL BE RUN ON THE PARTICULAR ADAPTER SELECTED. 
NO DEVICE IS NEEDED, BUT IF PRESENT II MUST BE POj OFF-LINE, THE 
INTERRUPT TEST AND TEST MODE ARE ALSO RON WHEN "B* Is SELECTED, 


TEST C - DEVICE CONTROLS (R, R/P* P) 

TESTS FOR PROPER OPERATION OF THE START AND STOP SWITCHES ON ALL 
CARD DEVICES. RUNNING THIS TEST WILL CAUSE THE PROGRAM IQ PRINT 
"LOAD INPUT* PUT UN-LINE 

TYPE * CARRIAGE RETURN** WHEN READY". IHt INPUT HOPPER SHOULD 
CONTAIN AT LEAST TWO CARDS * THE OUTPUT STACKER MUST nQT BE FULL 
AND THE DEVICE MUST BE PUT ON-LINE. A BREAK wILL RETURN TO "NEXT ?;" 
WHILE A CARRIAGE RETURN WILL CAUSE THt PROGRAM TO CONTINUE WITH 
THIS TEST. THE TEST THEN REQUIRES THE DEVICE TO B£ PUT OFF-LINE BY 
"STOP DEVICE"* WIIHIN IQ SECONDS OR AN ERROR WILL BE REPQRI ED, THE 


















































TITLE 


CRMS3**KEV G**CARDREADER / PUNCH TV (SAP) 


PAGE 


9 


000455 

000456 

000457 

00045b 

000459 

000460 

000461 

00046*: 

000463 

000464 

000465 

000466 

000467 

00046b 

000469 

000470 

000471 

00047* 

000473 

000474 

000475 

000476 

000477 

00047b 

000479 

000480 

000481 

00048* 

000483 

000484 

000485 

000486 

000487 

000488 

000489 

000490 

000491 

00049* 

000493 

000494 

000495 

000496 

000497 

000498 

000499 

000500 

000501 

00050* 

000503 

000504 

000505 

000506 

000507 

000508 

000509 

000510 

000511 

000512 

000513 

000514 

000515 

000516 

000517 

000518 

000519 

000520 

000521 

000522 

000523 

000524 

000525 

000526 

000527 

000528 

000529 

000530 

000531 

000532 

000533 

000534 

000535 

000536 

000537 

000538 

000539 

000540 

000541 

000542 

000543 

000544 

000545 

000546 

000547 

00054b 

000549 

000550 

000551 

00055* 

000553 

000554 

000555 

000556 

000557 

00055b 

000559 

000560 

000561 

00056* 

000563 

000564 

000565 

000566 

000567 


READEK/PUNCH OR PUNCH ONLY MUST THEN bE PUT ON-LINE ANO THE STACKER 
IS TESTED* ’'SLIDE 0UTPU1 STACKER”* BY SLIDING IT AWAY PROM THE 
DEVICE. THE STACKER MUST THEN BE RELEASED* "RELEASE STACKER”* AND 
THE DEVICE PUT ON LINE. AT THIS POINT THE SAFETY INTERLUCKS FOR 
THE LID AND REAR DOOR OF THE PUNCH MAY BE TESTED, BY RESPONDING TO 
"TEST INTERLOCKS ?;" WITH ”Y”. THE UP SHOULD THEN BE OPENED AND 
CLOSED* AND THE PUNCH SHOULD BE STARTED AND PUT ON-LINE. THE REAR 
DOOR MUST THEN BE OPENED* CLOSED AND I HE PUNCH STARTED AND PUT ON¬ 
LINE. 

TEST D - DEVICE TESTS ONLY (R* R/P* P) 

RESPONDING TO "NEXT ?;" WITH "D"* WILL RUN OnLY DEVICE INVOLVED 
TESTS. THESE TESTS INCLUDE TEST C*M,N*P*V*F*K AND R. 

TEST P - PUNCH 400 CPM (R/P* P) 

WILL RONCH COLUMNS 6-8 with the decimal VALUE op the card 
POSITION WITHIN THE DEC<, FOR A MAXIMUM OF 999 CARDS. FOR EXAMPLE* 
CARD #1 WILL HAVE IN COLUMN 8 A l PUNCHED AND CARD 999 WILL HAVE IN 
COLUMN 6,7 AND 8 A 9 PUNCHED. NO HEX CONVERSION IS NEEDED SINCE THE 
CARD NUMBER CAN BE READ DIRECTLY FROM THE CAkD. RESPONDING TO 
’•PUNCH 400 CPM - MAX 999 CARDS, TOTAL ?i" WITH A VALUE AND CARRIAGE 
RETURN, WILL PRINT A READY PUNCH MESSAGE. A BREAK AT THIS POINT 
RETURNS TO ”NtXI ?; •’ AND A C/R (CARRIAGE RETURN) CONTINUES WITH 
THE TEST, EXPECIING THE DEVICE TO BE READY WITH AN INPUI HOPPER 
CONTAINING AT LEAST THE NUMBER OF cards TO Bt PUNCHED ♦ SEVERAL 
EXTRA CARDS BEHIND THE DECK. 

AFTER PUNCHING THE DECK, THE NUMBER PUNCHED AND IF NO SIATUS ERRORS 
HAVE OCCURED THEN THE RATE IN CPM, WILL BE RcPORTED. UNDER OPTIMUM 
CONDITIONS A KATt OP 400 CPM CAN BE ACHIEVED BUT A MORE REALISIIC 
RATE OF ABOUT 375 CPM SHOULD BE EXPECItD. 

IF ANY STATUS ERRORS HAVE OCCURED THEN (HE NeXT CARD WILL BE OFFSET 
STACKED, 

"VERIFY ?? ” WILL THEN BE ASKED. RESPONDING WITH A »t Y” AND RELOADING 
THE DECK WILL CAUSE THE DECK JUST PUNCHED TO BE VERIFIED FUR PROPER 
PUNCHES (SEE TEST V). RESPONDING WITH A "N" TERMINATES THIS TEST. 

TEST I - INTERRUPT TEST (R, R/P, P) 


w!lL 0 Te£t°THE ABfflT'TOF THE SUBSYSTEM'i0'INTERRUpf* A CUWER PRIORITY 
AND BE INTERRUPTED BY A HIGHER PR IOK I IY• NO uEVICe IS NtEDED. 


?;"_W1TH ”1” AND PUTTING THE DEVICE OFF-LINE 

" *" ."'“RRUPT ‘ 1 ~~ 


TEST K - READ AND PUNCH (K/P) 

THIS TEST WILL READ DATA IN COLUMNS 1-8 AND REPEAT IT TU COLUMN 72 
OR 8 TIMES. RESPONDING TO "USING 400 CPM DECK?;" WITH "Y», ASSUMES 
THAT THE DECK PUNCHED BY TEST "F” IS BEING U 6 E&. RESPONDING W11H 
"N” MEANS THAT ANY 01 HER DECK MAY BE USED PROVIDING COLUMNS 9-80 ARE 
BLANK. 

(l.L. ASSUME COLUMN 1 HAS A 1 PUNCH, THEN COLUMNS 9 , 1 7,*5,33,41 ,49, 
57 AND 65 WILL BE PUNCHED WITH A 1 PUNCH) 

THE PUNCHED DECK MAY BE VERIFIED. 

STATUS ERRORS OFFSET THE NEXT CARD. 

TEST L - TEST MODE / DATA LOOPBACK (R, R/P, P) 


ABSENT FOR THIS TEST. THE AbIIMY Of 
EK BOARD, OP THE READER U008), TO 


THE DEVICE MUST BE OFF-LINE OR „ 

THE DATA REGISTER ON THE ADAPTER ... 

COUNT IN BINARY MODE AND THE ELECTRONICS WHICH DO JHE W BIT TO 8 
BIT CONVERSION IN ASCII MODE, WILL BE TESTED. 

FOk THE READER/PUNCH ♦ PUNCH ONLY, A LLU5ED uATA PATH WILL BE ESTAB¬ 
LISHED AND DATA COMBINATIONS WILL BE BENT TO THE ADAPTER AND READ 
BACK TO CONFIRM THE BINARY PATH. THE EttCTRONICS WHICH DO I HE 12 BI T 
TO 8 BIT CONVERSION IN ASCII (READER PROMS) AND THE ELECTRONICS 
WHICH DO THE 8 BIT TO 12 BIT CONVERSION FROM ASCII (PUNCH PROMS) 

WILL BE TESTED. THE CARD JAM ONE SHOT WILL Be TESTED, TU MAKE SURE 
THAT A TIME OU! OCCURS BETWEEN 150 MS AND 500 MS. 

TEST M - ASCII PUNCH (R/P, P) 

THIS TEST WILL PUNCH A STANDARD 3 CARD ASCII TEST DECK. A MINIMUM OP 
FIVE (5) CARDS ARE TO BE LOADED INTO I HE INPUT HOppER, 1 HE DEVICE 
PUT ON-LINE AND A C/K GIVEN IN RESPONSE TO "TYPE *CARRIAGE RETURN*, 
WHEN READY”. 

THE FIRST CARD PUNCHED WILL CONTAIN 64 LEGAL ASCII PUNCHES (ONLY 1 
PUNCH IN RUWS W). FOLLOWING THE PUNCHING, CONDITIONS CHECKED 
INCLUDE INTERRUPT AT END OF CARD, CORRECT MEMORY ADDRESS AND CORRECT 
RESIDUAL RANGt. 

THE SECOND CARD WILL Bt PUNCHED IN BINARY, WITH An U-8-6 PUNCH IN 
COLUMN 1 AND A 1-2 PUNCH IN COLUMN 2 (ILLEGAL ASCII). THE 1HIRD CARD 
PUNCH, WILL Bt A CARD OF BINARY 0*S (BLANK CARD). 

THIS DtCK MAY Bt VERIFIED, IF ONLY A PUNCH, BY VISUAL INSPECTION 
AND/OR BY RESTARTING THE TEST AND RUNNING TEST "N« ON A READER. 

TEST N - ASCIA READ (R, H/P) 

TYPING "N” WILE ALLOW THE 3 CARD ASCII DECK PUNCHED BY "M" OR THE 
3 CARD ASCII DECK SUPPLIED WITH TH£ PROGRAM, TO Be VE^IED. THIS 
TEST IS A MUST TO DETERMINE FIXED READ ERRORS, ON A READER ONLY. 

IN MARK SENSE MODE A 4 CARD TEST DECK IS NEEDED WITH HALF THE LEGAL 
ASCII CHARACTERS ON CARD l AND THE REST ON CARD 2, 11 - 8-6 AND 1-2 
MARKS ON CAKD 3 AND A BLANK FORTH CARD. THE MARK SENSE DECK IS THE 
SAME FOR 40/80 COLUMN IBM MODE AND 80 COLUMN HONEYWELL MODt. 

THE LEGAL CHARACTERS FOR ASCII CARD l (CARDS 1-2, MARK SENSE) AND 
THE PUNCHES (MARKS) ARL SHOWN IN THE ASCII TABLE. 

UPON LOADING THE DECK, READYING THE DEVICE AND GIVING A C/R, THE 
FIRST CAKD WILL BE READ AND INTERRUPT AT END OF RANGE WILL BE 
CHECKED. CORRECT MEMORY ADDRESS, CORRtCI RESIDUAL RANGE AND CORRECT 
DATA TRANSFER WILL ALSO BE CHECKED, DATA MISCOMPAreS ARE REPORTED 
IN HEX AS VALUE IS, SHOULD BE, IN COLUMN. STkIKINg BREAK WILL RETURN 
TO THt "NEXT ?;" QUESTION. 

IN MARK SENSt MODE CARDS 1 ♦ * ARE TKEAiED AS 1 CARD 160 COLUMNS 
LONG (WE. CAKD 1 BEGINS WITH COLUMN 1 AND ENDS WITH COLUMN 80* 

card 2 begins with 81 and ends with ie>ow since marks may be in 
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000565 
000569 
0Q0570 
000571 
0005 7 2 
000573 
000574 
000575 
000576 
000577 
000576 
000579 
000580 
000581 
0QQ582 
000583 
000584 
000585 
000586 
000587 
000586 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000598 
000599 
000600 
000601 
00060 <! 
000603 
000604 
000605 
000606 
000607 
000608 
000609 
000610 
000611 
000612 
000613 
000614 
000615 
000616 
000617 
000616 
000619 
000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 
000626 
000629 
000630 
000631 
000632 
000633 
000634 
000635 
000636 
000637 
000638 
000639 
000640 
000641 
000642 
000643 
000644 
000645 
000646 
000647 
000648 
000649 
000650 
000651 
000652 
000653 
000654 
000655 
000656 
000657 
000658 
000659 
000660 
000661 
000662 
000663 
000664 
000665 
000666 
000667 
000668 
000669 
000670 
000671 
000672 
000673 
000674 
000675 
000676 
000677 
000678 
000679 
000680 


# 

* 

# 

* 

* 

# 

* 

* 

* 

# 

* 

# 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 

# 

* 

* 

# 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

# 

* 

* 

* 

* 

# 

# 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

# 

* 

* 

* 

* 

* 

* 

# 


EVEN DR DUD COLUMNS* DEPENDING UN THE PRINTING OF 
COLUMN RtPDRTED IN ERROR MAY APPEAR TU BE BETWEEN 
THE CARD. IF THIS IS THE CASE* THE COLUMN IN ERROR 


THE CARD* THE 
marked COLUMNS ON 
WILL BE 1 LESS 

ET THE ILLEGAL 
R/P THIS CARD 
, THE BLANK CARD* 
, Of OATA ARE 

the operator* on 
card is offset 


mt lmku, *r irua io mt cMot* mt gui-uwn an lkkmr 
THEN THE COLUMN REPORTED. (PRINT OUT FOR HIS CARD$) 

READING LARD 2 (MARK SENSE CARD 3) IN ASCII* WILL Si 
ASCII STATUS BIT* WHICH WILL BE CHECKED AND UN THE 
WILL BE OFF SET STACKED. CARD 3 (MARK SENSE CARD 4 
TESTS TO MAKE SURE THAT THE CORRECT NUMBER OF BYTE! 

TKANSFEKtD AND THAT THt RESIDUAL RANGE IS CORRECT. 

A R/P* WILL Bt KEUUtSTED TO VERIFY THAT THE SECON6 
STACKED. 

NOTES ; ON HONEYWELL MARK SENSE READERS ONLY 80 COLUMN MODE IS 
PERMITTED. 

MARK SENSE CARD i HAS 40 COLUMNS OF MARKS 
TEST P - PUNCH ANY DECK (R/P* P) 

A FIXED OR RANDOM PATTERN MAY dE PUNCHED UNTIL A SPECIFIED MAXIMUM 
NUMBER IS REACHtD OR UNTIL BREAK IS SIRUCK. THE FIRST QUESTION 
ASKtD WILL BE "PUNCH 100 CARD TEST DELK ?;»• RESPONDING WITH "Y" 
WILL PUNCH 100 CARDS, WITH THE FIRST CARD HAVING EVERY *0W WITH 
EVERY COLUMN PUNCHED* CARDS 2-81 WILL BE PUNCHED IN THE FOLLOWING 
SEQUENCE; CARD 2 WILL HAVE a 1 PUNCH (BINARY 1) In COlQNN I * CARD 3 
WILL HAVE A 2 PUNCH (BINARY 2 / ROW 8) IN COLUMN z AND SO ON WITH 
CARD 81 HAVING AN 80 PUNCH (BINARY 50 / ROW 3*5). THE LAST 19 
CARDS WILL BE PUNCHED WITH RANDOM DATA. 

RESPONDING WITH "N« WILL CAUSE "RANDOM PUNCHtS??" TO BE ASKED# 
TYPING "Y" AND SPEC IF1 NS THE NUMBER OF CARDS TO BE PUNCHED* WILL 
PUNCH A DLCK OF CARDS WITH THE FIRST 100 CARuS BEING THE SAME AS 
THE 100 CARD TEST DECK AND THE REST OF I HE DECK WILL BE RANDOM 
PUNCHES. 

RESPONDING TO "RANDOM PJNCHES ?;« WITH "N« WILL ASK "COPY A CARD 
A "Y" RESPONSE* WILL ALLOW A CARD TO BE READ ON THE READEK/PUNCH 
ON A DIFFERENT CHANNEL (READER)* IF A PUNCH ONLY IS BEING TESTED. 
AFTER THL CARD IS READ* THE R/P* MUST BE STOPPED AND RUNOUI. SHOULD 
THERE BE NO 0 f HER RtADtR AVAILABLE AND THIS ROUTINE IS ENTERED* 
STRIKING BREAK DURING THE PRINTOUT OF "HEADER CHANNEL NUMBER ?\" 
WILL RETURN CONTROL TU "NEXT ?;"• 

RESPONDING TU "COPY A CARD ?;" WITH "N«* ALLuWS DATA TU BE INPUTTED 
FROM THE KEYBOARD* 3 HEX VALUES PER COLUMN* UNTIL JUST A KtTUKN IS 
RECEIVED. FUR EXAMPLE TYPING; iOI C/R 

1 C/R 
0 C/R 
23 C/R 
C/R 

WILL RESULT In COLUMN l HAVING A 1-9 PUNCH, COLUMN 2 HAVING A 9 
PUNCH* COLUMN 3 BEING B W ANK, COLUMN 4 HAVING A 4-^-9 PUNCH AND THE 
REST OF THE CARD BLANK. 

RESPONDING TO "100 CARD TEST DECK" WIIH "N", WILL ASK FUR IHE 
NUMBER OF CARDS TU BE PUNCHED (DECIMAL). THE PUNCHING OPERATION 
MAY BE TERMINATE BEFURE THE TOTAL 16 REACHED BY STRIKING BREAK. 

AFTtR THE DECK IS PUNCHED* THE NUMBER PUNCHED AND THE RATE IN CPM* 
PROVIDING NO STATUS ERRORS HAVE OCCURED* WIEl BE REPORTED. SHOULD 
STATUS ERRORS OCCUR* THEN THE NEXT CARD AFTER THE ERROR CARD WILL 
THE DECK MAY BE VERIFIED. 


Ik"’ 


TEST k - READ ANY DECK (R R/P) 


THIS TEST WILL READ ANY DECK AND WILL GENERATE CHECKSUMS (PARITY)* 
WHICH ARE STOKED IN MEMORY. SELECTING "K" WIlE PRINT THE MAXIMUM 
NUMBER OF CARDS AND WILL ASK FOR THE "DESIRED TOTAL ?J" ENTERING A 
DECIMAL VALUE AND A C/K WILL CAUSE THE CARDS TO Bf READ. SHOULD 
THE DEVICE GO OFF-LINE DURING THE READ, JHg NUMBER READ 7. “ 


NMS^eRISpeCAFI^D^ WILL^BE REPORTED ANO ' V^^I^UL^E’f Up^, A9 "N£XJ 


AND THE 


SUCCESSFUL reading Of the deck results IN THt ratjTin opm beIng 
REPORTED. 

TEST S - FRESH START (R* R/P* P) 

THIS IS NUT A TEST IN ITSELF* BUT IS A METHOD TO RESTAKI EXECUilON 
OF THE PROGRAM. IT IS EOUIVALENT TO CLEARING DO AND EXECUTING FROM 
LOCATION 100. 

THE CHANNtL NUMBER IS ASK FOR AND THE DEVICE IS IDENTIFIED AS A 
READER* READEK/PUNCH OR PUNCH. IF IT IS NOT ONE OF THESE THREE* THEN 
THE QUESTION IS REPEATED. IF THE ID SHOWS A READER IS TO Bt TESTED* 
THtN MARK StNSE QUESTIONS WILL BE ASKED 

RESPONDING TO "CHANNEL NUMBER ?J" WITH A C/R RE 1AI NS THt OLD VALUE. 
SEE OPtRATlON FUR A FURTHER EXPLA1 NAT ION. 

TEST V - VtkIFY ANY DECK (R* R/P) 

if the device is a punch only, the operator may select a RtADtR 
ON ANOTHER CHANNtL BY ANSWERING "RtADtR CHANNEL NUMBER ? ? ’* WUH THE 
CHANNEL OF THt RtADtR. SHOULD THERE NUT BE A READER AVAILABLE* THE 
OPERATOR MAY STRIKE THE BREAK KEY DURING THE ABOVE PRlNI OUT AND 
CONTROL RETURNS TU "NEXT ?;" 

THIS TEST CAN BE CALLED FROM TESTS F,K,P AND R* AND WlU- VERIFY 
THE PREVIOUS READ OR PUNCH OPERATION. 

DURING THE READING OF CARDS* THt STOP/START SWITCHES MAY Bt TESTED 
WITH NO ILL EFFECTS TO THE COMPARISIONS. 

ANY CARD IN ERROR, WILL BE REPORTED AEQN$ wJTH RO^S AND COLUMNS IN 
ERROR AND BIT DIFFERENCE. DROPPED OR MISSING STROBES WILE RESULT IN 
ONLY THE CARD AND FIRST COLUMN IN ERRUR BEING RtPORTED* ALONG WITH 
"DROPPED STRODE". 

THE OPERATOR CAN SELECT A RANDOM OR FIXED DElAY BETWEEN CARD PICKS. 
THE VALUt HE/SHt SELECTS WILL BE ROUNDED TO THE NEAREST CLUCK TICK. 
IF ANY ERRORS ARE DETECTED AFTER THE IH1KD CrtRD* THEN AT THE END OF 
THIS TEST* THt "AVERAGt DELAY IN MSEC" WILL BE REPORTED (ROUNDED TO 
THt NEAREST TICK). 

SHOULD THt OPtkATUk TYPE "V" WITHOUT ANY PREVIOUS READ UR PUNCH 
OPERATION* THE PROGRAM *ILL ASK "HAVE A TEST DECK ?;«. IF IHE 100 
CARD TEST DECK IS AVAILABLE* HE SHOULD IYPE "Y". AT THJS POINT 
SEVERAL SLCONDS WILL BE SPENT TO GENEKAIE THt checksums* before 
HE IS INSTRUCTED TO REA3Y THE DtCK. 

IF THE ERRUR PRINT OUT IS TO BE TERMINAIE« THEN STRIKING BREAK WILL 
DO SO. 

MARK SENSE COLUMN VALUES APPLY TO HIS CARDS* IBM CARDS ARE l LtSS 
THEN THt COLUMN NUMBER RtPORTED. 



t 4 
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000681 

000682 

000o83 

000o84 

000685 

OOO086 

000687 

000688 

0Q0o89 

000690 

000691 

000692 

000693 

000694 

000695 

000696 

000697 

000696 

000699 

000700 

000701 

00070* 

000703 

000704 

000705 

000706 

000707 

000706 

000709 

000710 

000711 

000/12 

000/13 

000714 

000715 

000716 

000717 

000718 

000719 

000720 

000721 

000722 

000723 

000724 

000725 

000726 

000727 

000726 

000729 

000730 

000731 

000732 

000733 

000/34 

000735 

000736 

000/37 

000738 

000739 

000740 

000741 

000742 

000743 

000744 

000745 

000746 

000747 

000746 

000749 

000750 

000751 

000752 

000753 

000754 

000755 

000756 

000757 

000756 

000759 

000760 

000761 

000762 

000763 

000764 

000765 

000766 

000767 

000766 

000769 

000770 

000771 

000772 

000773 

000774 

000775 

000776 

000777 

000778 

000779 

000780 

000781 

000782 

000783 

000784 

000785 

000786 

000787 

000788 

000789 

000790 

000791 


0000 

0029 
002 A 
002b 

002c 

0020 

002E 

002F 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

003A 

003b 

003C 

0030 

003E 

003F 

0040 

0041 

0042 

0043 

0044 

0047 

0048 

004b 

004C 

004E 


0000 
0001 
0002 
0003 
0007 
0004 
0005 
0006 
0008 
0009 
000A 
0006 
0014 
OOOF 
GOOD 
OOOE 
0011 
0012 
0013 
0015 
0016 
0017 
0019 
0010 
OOOC 
0022 
0020 
0023 
0021 
0024 
0025 
001b 
0016 
001C 
00 ID 
OQlt 
001F 
00 1A 
019E 
0146 
0153 
015D 
0171 
0183 
0195 
0274 
01A5 
01F9 
0249 
0271 
00E9 
0106 
0127 
02F 5 
004F 
OOCA 
OOCE 
0051 
004C 
0008 
0000 
0028 
008C 
008t 
00A2 
00A2 
0083 
OOD5 
0083 
0083 
0090 
0083 
OODF 
009A 
OOAC 
00B6 
0083 
OOCO 
0083 
OOCA 
004F 
0083 
0083 
OOCE 
0083 
0083 
0083 
00E3 
0005 

4E45 5854 2400 
0008 

494E 5641 4C49 

4424 

004C 

8F00 0001 K 

0011 


/ 

* 


* GLOBAL 

CONSTANTS 

AND VARIABLES 


XDEF 

(ID,D) 


XDtF 

(STATWA,D+1) 


XDEF 

(STATUS,D*2) 


XDtF 

(HERT2,D+3) 


XDtF 

(CHANNE,D*7) 


XDEF 

(PUESDO,D+4) 


XDtF 

(T ESTT Y,D + 5) 


XDtF 

(TYPE0F,D+6) 


XDtF 

(SET TOH,D + 8) 


XDEF 

( SET T OA,D+9) 


XDtF 

(ASE JCT ,D+10) 


XDtF 

(BINARY,D*11) 


XDtF 

(READS!,D*20) 


XDtF 

(NUMBER,D+15) 


XDtF 

(LABELl,D*13) 


XDtF 

( LABEL2 ,D+14) 


XDtF 

(MAX1MU,D+17) 


XDtF 

(CARDSS,D+18) 


XDtF 

(CARDSR , O’*-19 ) 


XDEF 

(BITC0U,D*21) 


XDtF 

(LOWADD,D+22) 


XDtF 

(KORVMO,D+23) 


XDEF 

(HAVEGE,D*25) 


XDtF 

(SPEED,D+16) 


XDtF 

(ERRORF ,D«-12) 


XDtF 

(CKSEM,D+34) 


XDtF 

(L215tM,D+32) 


XDEF 

( DLVL,D-f 35 ) 


XDEF 

(DVSEM,D+33) 


XDtF 

(CPLEVL,D + 36) 


XDEF 

(LEVTYP,D+37) 


XDtF 

( T EMPCH,D*27) 


XDtF 

(SREG,D*24) 


XDtF 

(5CR *D*28) 


XDtF 

( 10TM,D+29) 


XDtF 

( 10X1,D*30) 


XDEF 

(10X2,D*31) 


XDtF 

(Kt ADOR , D*>26 ) 


XDtF 

( CHECKS, A-f 181) 


XDtF 

(b1NCOU,A+93) 


XDEF 

(ASCCNT , A*-106) 


XDtF 

( b I NOB , A-f 116 ) 


XDEF 

(PPROMS,A+136) 


XDtF 

( RPROMS, A-f 154) 


XDtF 

(ONESHU,A*172) 


XDtF 

(WORDCU,A + 395) 


XDEF 

(BUFFI ,A+188) 


XDtF 

(BUFF2 , A«f 272) 


XDtF 

(CHAR, A*-352 ) 


XDEF 

( !LLtGA,A*392) 


XDEF 

(15AC,A) 


XDtF 

(1 SAD, A*- 3 1) 


XDtF 

( 1 SAP, A*-62 ) 


XDtF 

(10WURU,A + 524) 


XDEF 

FRESHS 


XDEF 

LETR 


XDtF 

LET V 


XDEF 

ASKNEX 


XDtF 

CARD 

2KC0M 

COMM 

8 

D 

RESV 

41,0 

SI 

EDO 

$-1 

S2 

DC 

<L2 

S3 

DC 

<L3 

S4 

DC 

<L5 

S5 

DC 

<L5 

56 

DC 

<L32 

57 

DC 

<L39 

58 

DC 

<L32 

S9 

DC 

<L32 

510 

DC 

<L8 

SIX 

pc 

<L32 

512 

DC 

<L41 

513 

DC 

<L34 

S14 

DC 

<L36 

SIS 

pC 

<L37 

516 

DC 

<L32 

517 

DC 

<L38 

518 

DC 

<L32 

519 

DC 

<LETR 

520 

DC 

<FRESHS 

S2 1 

DC 

<L32 

522 

DC 

<L32 

S23 

DC 

<LETV 

S24 

DC 

<L32 

525 

DC 

<L32 

526 

DC 

<L32 

527 

DC 

<L 17 

T29 

DC 

5 


TEXT 

* NEXTS• 

T33 

DC 

8 


TEXT 

* INVALIDS* 

CARD 

EQU 

5 


SAVE 

<2KC0M+1,2*0011* 


* 

* 

# 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 


•INTEGER* ID * ST ATUS WAS,STATUS SHUULO BEfHERT*; 

•INTEGER* PUESDO CARD STATUS,TEST TYPE? 

•INTEGER* TYPE OF PUNCHES? 

•INTEGER* CHANNEL ;? *HEX* (1300)5 
•INTEGER* SET TO HOLLERITH := •HE* 1 <4400)5 
•INTEGER* SET TO ASCII 1= 05 
•INTEGER* ASCII ERROR EJECT ?- *HtX* (4000)5 
•INTEGER* BINARY MODE *HEX* (8000)? 

•INTEGER* ERROR FLAG? ( FLAG.FOR NUMBER OF MESSAGES PRINTED) 

• NTtGER* LAbtLl? 

• NTEGER* LABEL25 
•INTEGER* NUMBER OF COLUMNS* 

•INTEGER* SPEED *HEX* (18)5 
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000792 

000793 

000794 

000793 

000796 

000797 

000798 

000799 

000600 

000801 

000802 

000803 

000804 

000603 

000606 

000807 

000806 

000809 

000810 

000811 

000812 

000813 

000814 

000613 

000616 

000617 

000616 

000819 

000820 

000821 

000822 

000823 

000824 

000823 

000826 

000627 


• INTEGER* 

• INTEGER* 

• INTEGER* 
•INTEGER* 

• INTEGER* 
•INTEGER* 

• INTEGER* 

• INTEGER* 

• INTEGER* 

• INTEGER* 

• INTEGER* 


MAXIMUM CARDS? 

CARDS SPECIFIED J = 100? 
CARDS READ? 

READ STATUS? 

BIT COUNT? 

LOW ADDRESS? 

R OR V MODE? 

SREG? 

HAVE GENERATED CHECKSUMS? 
READ OR PUNCH? 

TEMP CHARACTER? 


# 

* 

* 

# 

* 

# 

* 

* 

* 

* 

* 

**; 

** MICRO CONSTANTS AND VARIABLES? 

**; 

* ’INTEGER* SET CHANNEL READY 

* ‘INTEGER* SET TEST WQ£ 

* ’INTEGER* WAIT LOOP ADDRESS 

* ’INTEGER* RETURN FROM TEST MODE 

**; 


= •HEX * (4018)? 
= * HEX• (2000)? 
= ’HEX* (0000)? 
= ’HEX* (0500 ; 


** 

**; 

* 

INTERRUPT SAVE 

AREA AND VARIABLES? 


•TABLE* ISA 

FOR CLOCK 

@31»i@ 


* 

eI SACO 


• INTEGER* 

2 ? 

* 

ISACP 


* INTEGER* 

5e? 

# 

•TABLE* ISA 

FOR DEVICE 

@3i*l@ 

* 

H 1 SARD 


* integer* 

2 ? 

# 

1SARP 


* INTEGER* 


# 

•TABLE* ISA 

FOR PROGRAM 

@3i*1@ 


* 

&ISATD 


* integer* 

2 ? 

# 

# 

* 

I SAT P 

•INTEGER 1 L215EMAPH0RE* 

DEV ICESEMAPHORE * 

* INTEGER* 



CLOCKSEMAPHORE» 
DEVICELEVtLi 
CPLEVEL* 

LEV TYPE? 
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000826 

000829 

000830 

000831 

000832 

000833 

000834 

000838 

000838 

000837 

000838 

000839 

000840 

000841 

000842 

000843 

000844 

000848 

000848 

000847 

000848 

000849 

000880 

000851 

000852 

000853 

000854 

000855 

000856 

000857 

000658 

000659 

000660 

000861 

000862 

000663 

000664 

000865 

000666 

000667 

000666 

000669 

000870 

000671 

000672 

000673 

000674 

000675 

000676 

000677 

000678 

000679 

000680 

000681 

000882 

000883 

000684 

000685 

000686 

000887 

000888 

000689 

000890 

000691 

000692 

000893 

000894 

000895 

000896 

000897 

000698 

000899 

000900 

000901 

000902 

000903 

000904 

000905 

000906 

000907 

000906 

000909 

000910 

000911 

000912 

000913 

000914 

000915 

000916 

000917 

000918 

000919 

000920 

000921 

000922 

000923 

000924 

000925 

000926 

000927 

000928 

000929 

000930 

000931 

000932 

000933 

000934 

000935 

000938 

000937 

000938 

000939 

000940 


/ * 
*#; 
** 

**; 

** 

*# 

* 

* 

## 

* 

* 

** 

* 

**; 

## 

* 

* 

** 

* 

** 

*# 

#*; 
*# 

* 

* 

*# 

* 

# 

** 

# 

* 

## 

# 

# 

#* 

**; 

#* 

* 

* 

** 

* 

# 

*# 

* 

** 

* 

** 

* 

**; 
** 

* 

# 

** 

* 

* 

** 

# 

* 

** 

* 

**; 
** 

* 

# 

** 

* 

#* 

**; 
** 

**; 
* 

* 

* 

at *; 
*# 

**; 
* 

#*; 
* 

* 

# 

it 

it 

it 

* 

it 


MICRO CODE arrays; 

2008 reader; 

MICROS TO MAKE 2008 COUNT IN 61NARY; 

* INTEGER• ‘ARRAY* 6INC0UNT eo:i2<g 

•HEX* (0009)* *HEX*(A0C0)« ‘HEX* (9t;4Q)* fHEX* (9801)* *HEX* 
INST COUNT * SE 1 INDEX MODE *DATA SELECTOR,CLtAR NQSR *DA f A BY 

TE take; 

•HEX* (88EA)* * HEX•(B200) • *HEX* (9900)* *HEX* (88EB)* *HEX* 
SSPA LOC 3E *MWT LOW 6YTE*LCN AAD3 40 PICK*SSPA 3F, MWT HI 

gh byte; 

MICROS TO MAKE 2008 COUNT IN ASCII* 

•INTEGER* 'ARRAY* ASCCNT eo;9® Js 

•HEX* (0006)* •HEX• (AOCO)* *HtX* (9C40), *HEX* (9801)* 

INSTR COUNT* SET INDEX MODE*DATA SELECTOR*CLEAR NDSR* 

•HEX* (88EA) * * HEX* (B200)* *HEX* (2100); 

SSPA LOC 3E «MWT AAD1 LOW BYTE* DATA BYTE TAKEN; 

208A / 2088; 

MICROS EUR BINARY v 00PbACK; 

•INTEGER* •ARRAY * blNOB @0:19® ; = 

•HEX* (0010)* •HEX• (9848)* *HEX* (6l00),*HEX* (2U34)**HEX* 
INSTR COUNT *TEST 6 BINARY MODE* SET PUNCHX + OO * SSPA 

LOC 3E; 

•HEX* (716A)* * HEX• (88EA)* *HEX* (716A), *hEX* (0000)**HEX* 

XEb AAD1 BSPM SRIA.SSPA 3E* XEB AADi *CcOCK STROBE* SET 


( 2100 ) 

(B200) 


•HEX* (2034)* 
RtADX+OG * SSPA LOC 3E 
L0C3E; 

•HEX* (B200)* 


•HEX* (88EB)* * HEX * (o2Q0), *HEX* (2100)**HEX* 

*MWT HIGH BYTE *DATA BYTE TAkEN*SSPA 

•HEX* (0008); 


(88EB) 
(8180) 
(88EA) 


MWT LOW BYTE* CLEAR ADAPTER; 

MICROS TO TEST PUNCH PRQMS; 

•INTEGER* •ARRAY * PPROMS 60;17^ ; = 

•HEX* (OOOE)* * HEX» (9840)* ‘HEX* (6100), *HEX* (2034)**HEX*(88EA) 
INST COUNT, TEST 6ASCII MODE* SET PUNCHX+OO , SSPA L 

OC 3t; 

•HEX* ( 716 A) * * HEX• (0000)* 

XEB AADI BSPM SRIA* STROBE ADAPT; 

•HEX* (9848), •HEX» (88EA), *HEX* (p200), *HEX*(2100)* 

SET BI NARY * SSPA LOC 3E, MWT HIGH BY IE*DATA BYTE; 

•HEX* (8180), *HEX* (2034), *HtX* U8EB), *HtX* (B200)**HEX*(0008) 
SET READX+OO ,SSPA LOC 3E ,MwT LOw BYTE * CL 

EAR dap; 

MICROS TO TEST READ PROMS; 

•INTEGER* * ARRAY * RPR0M5 ©GIlTe ; = 

•HEX* (OOOE), ‘HEX* (9848), *HEX» (6100) 

INST COUNT*TEST 6 BIN MODE* SET PUNCHX+OO 
EOC 3E; 

•HEX* (716A) * 'HEX* (88EA)* *HtX* (716A), *hEX* (UOOO)**HEX* 

XEB AADI^ BSPM SRIA,SSPA 3E*XEb AADI ,CcOCK STROBE *SET 

•HEX* (8180), * HEX* (2034), *HtX* (68EA), *HEX» (B200)**HEX* 

SET READX+UO ,SSPA ‘ * 

AR ADAP; 


• HEX* (2034)*•HEX * 
* SSPA 


LOC 3E ,MwT ASCII 


*CLE 


(88EB) 
(9840) 
(0008) 


micros to time card jam one shot; 

* INTEGER*•ARRAY* ONE SHOT £0;8e ; = 

•HEX* (0008), •HEX * (0008), *HtX* (6180), *HEX» (2034). 

INSTR COUNT, INITIALISE ADAPTtK* DON*I RESlT ONe SHOT; 

'HEX* (8180), •HEX• (2034); 

STROBE ONE SH^TJ 

GLOBAL R/w BUFFERS; 

»INTEGER* 'ARRAY* CHECKSUM 
•INTEGER* * ARRAY' BjEEER G>0;83@; 

•INTEGER* 'ARRAY* BJEEEK2 ^0;79^; 

ASCII CHARACTERS FUR PUNCHED CARD 1 AND MARKEu CARDS 1 «- 2; 

•INTEGER* * ARRAY * CHARfcQ;39@ is 


•COMMENT* HtX VALUE 


•COMMENT* E R 
* HEX• (3031) 
•HEX* (3233) 
'HEX* (3435) 
•HEX' (363/) 
•HEX* (3839) 
•HEX* (4142) 
•HEX* (4344) 
•HEX* (4546) 

* 'HEX* (4748) 

* 'HEX » (494A) 

* •HtX * (4d4C) 

* 'HEX' <4D4t) 

* 'HEX* (4F50) 

* * HtX• (5152) 

* »HEX * (5354) 

* •HEX * (5556) 

* * HEX * (5758) 

* 'HEX * (595A) 

* •HtX » (3A23) 

* * HEX * (4027) 

** SECOND MARK SENSE CARD 

* 'HEX » (3D22) 

* * HEX' (202E) 

* * HEX * (5C2C) 

* •HEX * (255F) 

* 'HEX* (3E3E) 

* * HEX * (2D5D) 

* •HEX * (242A) 

* •HEX * (295E) 

* * HEX * (265B) 

* •HEX * (2E3C) 

it • HEX * (282B) 

* * HEX• (217D) 


•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 

•COMMENT 


ACTUAL PUNCHES 
L K 
0/1 
2/3 

4/5 

6 // 

8/9 

12 - 1 / 12-2 
12-3/12-4 
12-5/12-6 
12 -// 12-8 
12-9/11 — X 
11-2/11-3 

11-4/11-8 
11-6/11-7 
11-8/11-9 
0-2/0-3 
0-4/0-5 
0 - 6 / 0-7 
0-8/0-9 
8-2/8-3 
S-4/8-5 


Symbol 
l R 
o/i 
2/3 
4/5 
6/7 
8/9 

c/B 

G/H 
I/J 
K/L 
M/N 
0/P 
Q/R 
S/T 
U/V 
W/X 

COLON/NUMBER SIGN; 
AT/SGL QUOTE ; 


8 - 6/8 
BtANK/O- 
0 - 8 - 2 / 0 - 
0-8-4/U 
Q—8-6/0- 
11/11 
11-8-3/11 

11- 8-5/11 

12/12 

12- 8-3/12 
12-8-5/12 
12-8-7/11 


7 

1 

8-3 

8-5 

8-7 

- 8 - 

- 8 - 

8 - 

8 - 

-8 

-8 

-0 


EOUAL/DBL QUOTE 

5PACE/F0P slant 
B SLAN/CQMMA 
pct/lft arrow 

dash/I 

ptpar/* 

4PERl88/ @ < 

* LF I pt/rV^enc 
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000941 

000942 

000943 

000944 

000943 

000946 

000947 

00094b 

000949 

000950 

000951 

000952 

000953 

000954 

000955 

000956 

000957 

00095b 

000959 

000960 

000961 

000962 

000963 

000964 

000963 

000966 

000967 

00096b 

000969 

000970 

000971 

000972 

000973 

000974 

000973 

000976 

000977 

000976 

000979 

000980 

000981 

000982 

000983 

000984 

000985 

000986 

000987 

00098b 

000989 

000990 

000991 

000992 

000993 

000994 

000995 

000996 

000997 

000998 

000999 

001000 

001001 

001002 

001003 

001004 

001003 

001006 

001007 

00100b 

001009 

001010 

001011 

001012 

001013 

001014 

001015 


00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


016 

017 

01b 

019 

020 

021 

022 

023 

024 

023 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 


001036 

001037 

001038 

001039 

001040 

001041 

001042 

001043 

001044 

001045 

001046 

001047 

001046 

001049 

001050 

001051 

001052 

001053 


•HEX • 
•HEX* 
•HEX* 
•HEX* 
•HEX* 
* HEX • 
•HEX* 
•HEX* 


(7b2G) , 
( 2020 )* 
( 2020 ) ♦ 
( 2020 )* 
( 2020 ) , 
( 2020 )* 
( 2020 ) , 
( 2020)5 


•COMMENT* 

* COMMENT * 

* COMMENT * 
•CUMMtNT• 
•COMMENT* 

* COMMENT * 
•COMMENT* 
•COMMENT* 


12-0/bLANK 

BLANX/bLANX 

BLANX/bLANX 

BlANK/bLANK 

BLANK/bLANK 

BLANK/bLANK 

BLANX/bLANX 

BLANX/bLANX 


* 

* 

* 

# 
ik 

##; 

** ASCII 
*#; 

* • INT t-UER * ‘ARRAY* 

* ‘COMMENT* COL 

* * COMMENT• 1 

* ‘COMMENT* 2 

* •COMMENT * 3-60 

**; 

** BINARY TO ASCII LOUX UP TABLtS - FOR TtST MODE? 
*#; 


lftenc/space 

SPACE/SPACE 

SPACE/SPACE 

SPACE/SPACE 

SPACE/SPACE 

SPACE/SPACE 

SPACE/SPACE 

SPACE/SPACE 


CHARACTERS FUR PUNCHED CARD 2 AND MARKED CAK& 3? 

•HEX* (020A)*’HEX’ (0180)5 


ILLEGAL ASCII &0;2«? ;s 
PUNCH GRAPHIC 

11-8-6 SEMI-COLON 

1-2 NONE 

BLANK space 


* 


•HEX* 

(2039)» 

•COMMENT 

* 


•HEX* 

(3898)* 

•COMMENT* 

* 


•HEX* 

(3704), 

•COMMENT* 

* 

• 

•HEX* 

(22I A) * 

•COMMENT* 

* 


•HEX* 

(3696)* 

•CQMMtNT * 

* 


•HEX* 

(3D9E) , 

•COMMENT* 

# 


* HEX * 

(3595) ♦ 

•COMMENT* 

# 


•HEX* 

(2715) • 

•COMMENT* 

Ik 


• HEX* 

(3494), 

»COMMENT » 

* 


•HEX* 

(4014)* 

* COMMtNT * 

ik 


•HEX* 

(3393)* 

•COMMENT » 

ik 


•HEX* 

(239b). 

•COMMtNT* 

ik 


•HEX* 

(3216) > 

•COMMENT* 

ik 

- 

»HtX * 

(3A9A)* 

•COMMENT* 

ik 


•HEX* 

(3191) • 

•COMMENT* 

ik 


•HEX* 

(6099)* 

•COMMENT* 

ik 


•HEX* 

(305A), 

»COMMENI• 

ik 


•HEX* 

(5988) ♦ 

•COMMENT* 

ik 


•HEX* 

(581b)* 

•COMMENT* 

# 


•HEX* 

( 3 F 0 7) * 

♦COMMENT• 

* 


•HEX* 

(5717) , 

•COMMENT* 

# 


•HEX* 

(3tQ6).» 

♦COMMENT * 

ik 


•HEX* 

(560A)* 

•COMMENT* 

ik 


* HEX * 

(5F05) , 

•COMMENT* 

ik 


•HEX* 

(5584) , 

* COMMENT ♦ 

* 


• HEX* 

(2580 , 

•COMMENT* 

* 


•HEX* 

(5483) • 

•COMMENT* 

# 


•HEX* 

(2C8S), 

•COMMENT* 

* 


•HEX* 

(5382)* 

•COMMENT » 

ik 


•HEX* 

(5C8A)* 

•COMMENT » 

ik 


•HEX* 

( 2 F 81) * 

•COMMENT * 

ik 


•HEX* 

(B989)» 

»COMMENT » 

4 


•HEX* 

(2D52) , 

•COMMENT* 

* 


•HEX* 

(5118)* 

•COMMENT « 

ik 


•HEX* 

(5087) ♦ 

♦COMMENT* 

ik 


•HEX* 

( 5 E1F) * 

•COMMENT* 

# 


•HEX* 

(4 F 0 8) » 

•COMMENT* 

ik 


•HEX* 

(3B1E)* 

•COMMENT* 

ik 


• HEX* 

(4E85)* 

•COMMENT* 

# 


•HEX* 

(29 ID), 

•COMMtNT » 

* 


•HEX* 

(4D9D)* 

•COMMENT* 

ik 


•HEX* 

(2A1C), 

•COMMENT* 

* 

# 


•HEX' 

•HEX' 

(4C13)» 
< 2 <*ai-)« 

•COMMENT• 
•COMMENT* 

* 


•HEX* 

(4b 1 2 ) • 

•COMMENT• 

ik 


• HEX* 

(5D9 2) » 

•COMMtNT• 

* 


•HEX* 

(4A11) ♦ 

•COMMtNT* 

* 


•HEX* 

(bl19) * 

•COMMENT* 

ik 


•HEX* 

(7D7A)« 

•COMMENT* 

ik 

ik 


•HEX* 

•HEX* 

i 1 9bb) , 

( 78b 7) , 

•COMMENT * 
•COMMENT* 

* 


•HEX* 

(D 7 F 9 ) * 

•COMMtNT* 

* 


•HEX* 

(77b6) , 

•COMMENT* 

ik 


•HEX* 

(D6F8) • 

•COMMENT* 

* 


•HEX* 

( 7 6 B 5 ) ♦ 

•COMMENT* 

* 


•HEX* 

(D5F7)• 

•COMMENT * 

ik 


•HEX* 

(75b4)* 

•COMMENT* 

ik 


•HEX* 

(D4F6), 

•COMMENT* 

ik 


•HEX* 

(74b3)* 

•COMMENT* 

ik 


• HEX* 

(D3F5)• 

•COMMENT* 

* 


•HtX* 

(73B2)♦ 

•COMMENT* 

ik 


•HEX* 

(D2I-4) , 

•COMMENT* 

ik 


• HEX* 

(7E9F)• 

•COMMENT* 

4 


•HEX* 

(D180)* 

•COMMENT* 

ik 


•HEX* 

(2649) ♦ 

•COMMENT* 

ik 


•HtX* 

(4897) • 

♦COMMENT* 

ik 


•HtX* 

(477F)* 

•COMMENT* 

ik 


•HEX* 

( 2 10 F ) , 

•COMMENT* 

ik 


•HEX* 

(4686)* 

•COMMtNT* 

* 


•HEX* 

(2B0E)* 

•COMMENT* 

ik 


* HEX * 

(4509)* 

•COMMENT * 

* 


•HEX* 

(280D)» 

•COMMtNT* 

ik 


•HEX* 

(4490 * 

•COMMENT* 

ik 


•HEX* 

(3COO » 

'COMMENT* 

ik 


* HEX * 

(4303)* 

•COMMENT* 

ik 


•HEX* 

(2E0b)* 

•COMMENT* 

ik 


•HEX* 

(4202)* 

•COMMENT* 

ik 


•HEX* 

(5B8E)* 

•COMMENT* 

ik 


•HEX* 

(4101), 

•COMMENT* 

ik 


•HEX* 

(A88D)* 

•COMMENT* 

ik 


•HEX* 

(7869)* 

♦COMMENT* 

ik 


•HEX* 

(68A7), 

•COMMENT• 

ik 


•HEX* 

(67A6)* 

•COMMENT » 

ik 


•HEX* 

(C9ED)* 

•COMMENT* 

ik 


•HEX* 

(66A5)» 

•COMMENT* 

ik 


•HEX* 

(C8EC) • 

•COMMENT* 

ik 


•HEX* 

(65A4) • 

•COMMENT* 

ik 


•HEX* 

(C7EB) • 

•COMMENT* 

ik 


•HEX* 

(64A3)* 

•COMMENT* 

ik 


•HEX* 

(C6EA) * 

•COMMENT* 

ik 


•HEX* 

(63A2) • 

•COMMENT* 

ik 


• hex* 

(C6t9)* 

•COMMENT* 

ik 


•HEX* 

(62A1) ♦ 

•COMMENT* 


no punch/9 space/v; 

8/9-8 6 /NA ; 

7/9-7 //EOT ? 

8- f /9-8-7 "/S ; 

6/9-6 6 /NA ? 
tt-6/9-8-6 s/NA 5 
P/9-5 5/NA ; 
b-5/9-8-3 */NAK ? 

4/9-4 4/NA ; 

8-4/9-8-4 AT/DC4 * 

3/9-3 3/NA ? 
b-3/9-8-3 POUND/NA 5 
//9-2 2/SYN ; 

8-209-8-2 «/NA 5 

1/9-1 1/NA ; 

8-1/9-6-1 b#$.(L*C.)/NA 5 
0/0-9 0/2 5 

U-8/0-9-8 Y/NA 5 
O-//0-9-7 X/ESC » 

U-8-7/0-9-8-7 ?/btL 5 
U-6/0-9-6 W/ETB ? 

0 - 8 - 6 /0-9-8 -6 >/ACX 5 
O-3/0-9-5 V/LF i 
U-8-5/0-9-8-5 LPA/ENU 5 
0-4/0-9-4 O/NA 5 
0-8-4/0-9- 8-4 pERCENI/NA 5 
0-3/0-9-3 T/NA 5 
0-8-3/0-9- 8-3 ,/NA 5 
0-2/0-9-2 S/NA 5 
0-8-2/0-9-8-2 B*S*/NA ? 
0-1/0-9-1 / / NA i 

U-b-1/0-9-8-1 NA/NA 5 
11/11-9 -/R ? 

11-8/11-9-8 Q/CAN 5 
11-7/11-9-7 p/NA 5 
11-8-7/11-9-8-7 APU/US 5 
11-6/11-9-6 O/BS 5 
11-8-6/11-9-8-6 S*C*/RS 5 
11-5/11-9-5 N/NA ? 
11-8-5/11-9-8-5 >/GS 5 
U-4/U-9-4 M/NA 5 
11-8-4/11-9-8-4 */F 5 ? 

11-3/11-9-3 L/pP * 
11-2/11-9-2 K/DC2 5 
11-2/11-9-2 K/DC2 5 
11-8-2/11-9-8-2 •/NA 5 

11-1/11-9-1 J/OCi 5 
11-8-1/11-9-8-1 NA/EM ? 
11-0/11-0-9 . (L.C.) /2(L.CO 

11-0-8/11-0-9-8 Y(L* C#)/NA 
11-0-7/11-0-9-7 X(L.C*)/NA 
11-0-8-7/11-0-9-8-/ NA/NA 
11-0-6/11-0-9-6 W(L.C.)/NA 

U-0-8-6/11-0-9-8-6 NA/NA 
11-0-5/11-0-9-5 V(L*C#)/NA 
U-0-8-5/U-0-9-8-P NA/NA 
11-0-4/11-0-9-4 U(L*C*)/NA 
11-0-8-4/11-0-9-8-4 NA/NA 

11-0-3/11-0-9-3 T(L.U) /NA 
11-0-8-3/11-0-9-8-3 NA/NA . 
11-0-2/11-0-9-2 S(L.C*)/NA 5 
11-0-8-2/11-0-9-8-2 NA/NA 
11-0-1/11-0-9-1 £/NA 5 

11- 0-8-1/11-0-9-8-1 NA/NA 
12/12-9 I/I ; 

12- 8/12-9-8 H/NA 5 
12-7/12-9-7 g/DEE ? 
12-8-7/12-9-8-7 0/SI 5 
12-6/12-9-6 F/NA 5 
12-8-6/12-9-8-6 ♦/SO 5 
12-5/12-9-5 E/HT 5 
12-8-5/12-9-8-5 (/CR 5 
12-4/12-9-4 p/NA 5 
12-8-4/12-9-8-4 </FF 5 
12-3/12-9-3 C/ETX ? 
12-8-3/12-9-8-3 */VT 5 
12-2/12-9-2 B/5TX 5 
12-8-2/12-9-8-2 fe/NA 5 
12-1/12-9-1 A/SOH ? 
12-8-1/12-9-8-1 NA/NA ; 
12-0/12-0-9 g( l*C*)/I(L*C.) 
12-0-8/12-0-9-6 H(L.C.)/NA ; 
12-0-7/12-0-9-7 Cj(L.C,)/NA \ 
12-0-8-7/12-0-9-8-7 NA/NA ; 
12-0-6/12-0-9-6 P(LtC.)/NA ; 
12-0-8-0/12-0-9-8-6 NA/NA ; 
12-0-5/12-0-9-5 E(L#C*)/NA i 
12-0-8-5/12-0-9-8-5 NA/NA ; 
12-0-4/12-0-9-4 P(L*C*) NA ! 
12-0-8-4/12-0-9-8-4 NA/NA ; 

12-0-3/12-0-9-3 C(L#L*)/NA ; 
12-0-8-3/12-0-9-8-3 NA/NA ? 
12-0-2/12-0^9-2 B(L.C.)/NA ! 
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001054 

* 

• hex* 

(C4E8)* 

•COMMENT• 

001055 

# 

•HEX* 

(61 AO) * 

* COMMENT• 

001056 

# 

• HtX • 

(C300)* 

• COMMENT • 

001057 

# 

•HEX* 

(7C72)♦ 

•COMMENT * 

001058 

* 

•HEX* 

(71B0)♦ 

•COMMENT* 

001059 

# 

•HEX* 

(7 OAT) * 

•COMMENT• 

001060 

# 

•HEX* 

(OOP 3) * 

•COMMENT• 

001061 

# 

•HEX* 

(6FAE), 

•COMMENT * 

001062 

* 

•HEX* 

(CFF2) * 

•COMMENT* 

001063 

* 

•HEX* 

(6EAD)* 

•COMMENT* 

001064 

* 

•HEX* 

(CEF1)♦ 

•COMMENT* 

001065 

* 

•HEX* 

(6PAC)* 

•COMMENT* 

001066 

* 

•HEX* 

(CPF 0) * 

• COMMENT • 

001067 

* 

•HEX* 

(6CAb)♦ 

•COMMENT* 

001066 

* 

•HEX* 

(CCEF)* 

•COMMENT• 

001069 

# 

•HEX* 

(66AA), 

•COMMENT• 

001070 

* 

•HEX* 

{CbEE)i 

•COMMENT* 

001071 

# 

•HEX* 

(6AA9)* 

•COMMENT * 

001072 

# 

• HEX • 

(CA10)♦ 

• COMMENT• 

001073 

* 

•HEX* 

(bAEl)* 

•COMMENT* 

001074 

# 

•HEX* 

(E0C2)* 

•COMMENT* 

001075 

* 

•HEX* 

(DFC1)* 

•comment• 

001076 

# 

•HEX* 

(E 7 F F) ♦ 

• COMMENT• 

001077 

* 

•HEX* 

(PECO), 

•COMMENT » 

001078 

* 

•HEX* 

(E6FE)$ 

•COMMENT* 

001079 

* 

•HEX* 

(OUbF)i 

•COMMENT * 

001080 

# 

•HEX* 

(E5FP)♦ 

• COMMENT• 

001081 

* 

•HEX* 

(PCbE)♦ 

•COMMENT* 

001082 

# 

•HEX* 

(E4FC)♦ 

•COMMENT• 

001083 

* 

•HEX* 

(DbbD)♦ 

•COMMENT* 

001084 

* 

•HEX* 

(E3Fb)♦ 

•COMMENT• 

001085 

* 

•HEX* 

(PAbC)* 

• COMMENT• 

001086 

* 

•HEX* 

(E2FA)* 

• COMMENT• 

001087 

* 

•HEX* 

(P9Bb)♦ 

•COMMENT » 

001086 

* 

•HEX* 

(D890); 

•COMMENT » 


12-0-8-2/U-0-9' 
12-0-1/12-0-9-1 
12-0-8-1/12-0-9 
12-11/12-11-9 I 
12-11-8/12-11-9 
12-11-7/12-11-9 
12-11-8-7/12-11 
12-11-6/12-11-9 

12-11-8-6/12-U 

12-11-5/12-11-9 
12-11-8-5/12-H 
12-11-A/12-11-9 
12-11-8-4/12-H 
12-11-3/12-11-9 
12-11-8-3/12-11 
12-11-2/12-11-9 
12-11-8-2/12-11 
12-11-1/12-11-9 
12-11-8-1/12-11 
12-11-0/12-11-0 
12-11-0-8/12-11 
12-11-0-7/12-H 
12-11-0-8-7/12- 

12-11-0-6/12-U 

12 - 11 - 0 - 8 - 6 / 12 - 

12-11-0-5/12-11 

12-11-0-8-5/12- 

12-11-0-4/12-11 

12-11-0-8-4/12- 

12-11-0-3/12-11 

12-11-0-8-3/12- 

12 - 11 - 0 - 2 / 12-11 

12 - 11 - 0 - 8 - 2 / 12 - 

12-11-0-1/12-H 

12 - 11 - 0 - 8 - 1 / 12 - 


-8-2 NA/NA ? 

A(L.C.)/NA ; 
-8-1 NA/NA ; 

bS(l.c.)/ru-.c.) ; 
-8 o(l.c*)/na ; 

-7 P(L.C#)/NA ; 
-9-8-7 NA/NA 5 

-6 o<uc.)/na ? 

-9-8-6 NA/NA ? 

-5 N(L.C.)/NA ; 
-9-8-5 NA/NA ? 

-4 M(L« C*)/NA 5 
-9-8-4 NA/NA ? 

-3 L(t.C.)/NA ? 
-9-8-3 NA/NA ? 

-2 K(L.C*)/NA 5 
-9-8-2 NA/NA ? 

-1 J(L*C«)/NA 5 
-9-8-1 NA/PLE 5 
-9 NA/NA ♦ 

-0-9-8 NA/NA 5 
-0-9-7 NA/NA 5 
1 1-0-9-8-7 NA/NA 
-0-9-6 NA/NA ? 

1 1-0-9-8-6 NA/NA 
-0-9-5 NA/NA 5 
11-0-9-8-5 NA/NA 
.0-9-4 NA/NA ; 

1 1-0-9-8-4 NA/NA 
-0-9-3 NA/NA 5 
1 1-0-9-8-3 NA/NA 
-0-9-2 NA/NA? 
U-O-9-8-2 NA/NA 
-0-9-1 NA/NA ? 
11-0-9-8-1 NA/NA 
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001089 

001090 

001091 

G01G92 

001093 

001094 

GG1095 

001096 

001097 

001096 

001099 

,001100 

001101 

001102 

001103 

001104 

00110S 

001106 

001107 

001106 

001109 

001110 

OOllIl 

001112 

001113 

001114 

001115 

001116 

001117 

001116 

001119 

001120 

001121 

001122 

001123 

001124 

001125 

001126 

001127 

001126 

001129 

001130 

001131 

001132 

001133 

001134 

001135 

001136 

001137 

001138 

001139 

001140 

001141 

001142 

001143 

001144 

001145 


/; 

**; 

** TABLE OF FUNCTION CODES; 

#*; 

* ’TABLE* 10 WORD en, 

* -- 

* 


1 @ 


^OUTPUT CONTROL 
INPUT INTERRUPT 
OUTPUT INTERRUPT 
INPUT FIRMWARE REV 
INPUT TASK 
OUTPUT TASK 
INPUT MEMORY BYTE 
READ 

INPUT MODULE ADDRESS 
INPUT RANGE 
INPUT CONFIGURATION 
OUTPUT CONFIGURATION 
INPUT STATUS WORD 
INPUT DEVICE ID 
GET WAIT ADDRESS 
OUTPUT DATA 
PUNCH 


•INTEGER 

• INTEGER 
♦INTEGER 
1 1NTEGEK 
•INTEGER 
•INTEGER 

• INTEGER 

• INTEGER 

• INTEGER 

•integer 

• INTEGER 

• INTEGER 
•INTEGER 
•INTEGER 
•INTEGER 

• INTEGER 

• INTEGER 




4 ; 

5 ; 

6 9 

7 i 

8 9 

9 ; 
lQi 

in 

12 ; 

13 ; 

14 ; 

is; 

38*62963,73; 


* 

# 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 1,2,3*4,6* 7 *8*9*10,12*16*17 *24, 

************#**#**###*#*##a************************************* 

* *******; 

** SWITCH TO 1NTEKPERT RESPONSE TO "NEXT”* 

**; 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

# 

# 


004F D3C0 0000 


•SWITCH* LETTER SWITCH ;= 

LETTER A, »COMMENT 

LETTER B, •COMMENT 

LETTER C, •COMMENT 

letter d, *comment 

INVALID INPUT, •COMMENT 

LETTER P, •COMMENT 

INVALID INPUT, ’COMMENT 

INVALID INPUT, •COMMENT 

LETTER I, * COMMENT 

INVALID INPUT, ’COMMENT 

LETTER K, ’COMMENT 

LETTER L, ’COMMENT 

* LETTER M, ’COMMENT 

* LETTER N, ’COMMENT 

* INVALID INPUT, ’COMMENT 

* LETTER P* ’COMMENT 

* INVALID INPUT* ’COMMENT 

* LETTER R* •COMMENT 

* FRESH START* ’COMMENT 

* INVALID INPUT, ’COMMENT 

* INVALID INPUT* ’COMMENT 

* LETTER V, ’COMMENT 

* INVALID INPUT, ’COMMENT 

* INVALID INPUT* ’COMMENT 

* INVALID INPUT, ’COMMENT 

* LETTER l ? ’COMMENT 

* FRESH STAKT; 

FRESHS LNJ 5,KJPS 

* FRESH start p; 


ALL tests; 

ELECTRONICS ONLy; 

DEVICE CONTROLS; 

DEVICE TEST ONLY; 

PUNCH AT 4U0 CPM; 

g; 

INTERRUPT TEST; 

J 9 

READ/PUNCH; 

TIES I MODE + DATA LOOPBACK; 
PUNCH ascii; 

READ ASCII? 

o; 

PUNCH RANDOM TEST DECK; 

u; 

READ ANY DfcCK? 
START/RESTART PROGRAM; 

T? 

u; 

VERIFY ANY DECK; 

w; 

x; 

y; 

patch routine; 


/ " >x 







TITLE 

CRMS3 

* * REV 6* 

♦CAKOREAOER 

/ PUNCH TV (SAP) • PACE 17 

001146 





/? 


001147 





** ASK »' 

NEXT ?; M UF OPERATOR ANO EXPECT A RbSPONSE UF THE FURM? 

4**^ 001148 





** ; 


a 001149 





#* 

C/R ONLY USE THE MOSI KECEN1 SELECTION AGAI 

1 001130 





# 

n ; 

V,* 001151 





#* 

LETTER ANP C/R MAKE NEW SELECTION? 

001152 





*#; 


001153 





* 

ASK NEXT? 

001154 


0051 



ASKNEX 

EQU $ 

001153 

0051 

0005 




PC 5 

001156 





* 

CLOCK off; (WHO KNOWS WHAT WAS BEING DONE BEFORE) 

001157 





* 

GET break; 

001156 

005* 

P3CQ 

0000 

P 


LNJ 5,VKGB 

001159 

0054 

FBCQ 

FF01 



LAB 7, D + 36 

001160 

0056 

9BC0 

FFB4 



LAB i»D+ll 

001161 

0058 

9F87 




STB 1* $B7 

001162 





* 

1N0UT (INITIALIZE* OUTPUT CONTROL £0@)? 

001163 

0059 

ABCO 

0296 



LAB 2 ,A+524 

001164 

0056 

AFCO 

FFCb 



STo 2 »D+39 

001165 

005P 

D3C0 

0000 

P 


LN J 5 * J10 

001166 





# 

ASK NEW QUESTION ( M NEXTS M )? 

001167 

00 5 F 

FBCO 

FFC6 



LAB 7 *D + 38 

001166 

0061 

96C0 

FFE1 



LAb 1,T29 

001169 

0063 

9F67 




STB 1 » $B7 

001170 

0064 

D3CQ 

0000 

F 


LNJ 5 * VKANQ 

001171 





* 

TEMP CHARACTER •= TEST TYPE * *56? 

001172 

0066 

£.840 

FF9E 



LDR 6 *D + 5 

001173 

0066 

6006 




SOL 6*8 

001174 

0069 

EF40 

FF61 



STR 6*D+27 

001175 

0066 

FBCO 

FFBA 



LAB 7 * D + 38 

001176 

006U 

9BC0 

FF AO 



LAb 1 * D + 2 7 

001177 

006F 

9F87 




STB 1 * SB7 

001178 

0070 

D3C0 

0000 

P 


LNJ 5 * VKGC 

001179 





* 

GET CHAR (TEMP CHARACTER ); 

001180 





# 

•IF* TEMP CHARACTER * EQ • •HE*’ (OP) 

001181 





# 

•THEN* 

001182 





* 

•GO TO* KEEP OLD SELECTION? 

001183 

007* 

£.840 

FFA8 



LPK 6,04-27 

001184 

0074 

6Q0D 




CMV 6,13 

001185 

0075 

0907 




BE >L31 

001186 





* 

•IF* TEMP CHARACTER *GE* *LHEKAL* (A) * AND* 

001187 

0076 

6041 




CMv 6,65 

001186 

0077 

080C 




BAL >L32 

001189 





* 

TEMP CHARACTER *LE* • Ll(ERAL* (Z) 

001190 





* 

•THEN* 

001191 





* 

•BEGIN* 

001192 

0078 

605 A 




CMV 6,90 

001193 

0079 

OAOA 




BAG >L32 

001194 





* 

TEST TYPE ; = TEMP CHARACIER? 

001193 





* 

KEEP OLD SELECTION; 

001196 

007A 

EF4Q 

FF8A 



STR 6,P45 

001197 


007C 



L31 

EQU $ 

001196 





* 

» GU TO* *ET1ER SWITCH ©(’BITS* @5,o@ TEST TYPE) fi? 

001199 

007C 

9840 

FF88 



LPK 1,0+5 

S- 001200 

007L 

9570 

001F 



ANP 1 , s*• 001F * 

§ 001201 

0080 

9C90 

0028 



LPB 1 , <S1«$K1 

I 001202 

006* 

8361 




JMP SB1 

% 001203 





* 

•ENP* ; 

001204 





* 

INVALID INPUT; 

001205 


0083 



L32 

EQU $ 

001*06 





* 

PUT NEW TEXT (** INVAL IDS") ? 

001*07 

0063 

FBCO 

FFA2 



LAb 7,P+38 

001206 

0085 

9BC0 

FFC1 



LAd 1 , T 3 3 

001*09 

0067 

9F87 




STb 1 , Sb7 

001*10 

0088 

03C0 

0000 

P 


LNj 5 , VKPNT 

001211 





* 

•GO TO* ASK NEXT? 

001*1* 





**; 


001*13 





** LETTER A - ALL TESTS; 

001214 





**; 


001*15 





* 

LETTER A; 

001*16 

008 A 

83C0 

FFC6 



JMP ASKNEX 

001*17 


006C 



L2 

EQU $i 

001216 





* 

HAVE GENERATED CHECKSUMS J s FALSE? 

001*19 





**; 


001*20 





** LETTER 6 - ELECTRONICS AlQNE? 

001221 





ik *; 


00122* 





* 

LETTER BJ 

001*23 

006C 

8740 

FF8C 



CL D+25 

001*24 





* 

LETTtR BP? 

001*25 





**; 


001226 





** LETTER 1 - INTERRUPT TEST? 

001*27 





**; 


001226 





* 

LETTtR I; 

001*29 

006L 

D3C0 

0000 

P 

L3 

LNj 5 , KJLB 

001*30 





* 

letter ip; 

001*31 

0090 

D3C0 

0000 

P 

L8 

LNj 5 ,KJLI 

001*32 





# 

•IF* TEST TYPE *EU« * L1TERAL * (A) 

001*33 

009* 

£.840 

FF72 



LPK 6,P+5 

001*34 

0094 

6041 




CMV 6,65 

001*35 

0095 

0905 




Bt >L34 

001*36 





* 

•OR* TEST TYPE * EQ* •LITERAL’ (B) 

001*37 





# 

•THEN* 

001*36 





* 

•GO TO* LETTER L 

001239 





* 

’LLSt* 

001*40 

0096 

6042 




CMV 6,66 

001*41 

0097 

0903 




BE >L34 

001*4* 





* 

•GO TO* ASK NEXT? 

001*43 





**; 


001244 





** LETTER L - TEST MODE + OATA LOOPBACK? 

001*45 





**; 


001*46 





* 

LETTER L? 

001*47 

0096 

83C0 

FFB8 



JMP ASKNEX 

001*46 





* 

LETTtR LP? 

001*49 

009 A 

03C0 

0000 

P 

L34 

LNJ 5 ,KJLL 

001*50 





* 

•IP* TEST TYPE *EQ* ’LITERAL’ (A) 

001*51 





# 

•THEN* 

00125* 





* 

•GU TO* LETTER C 

1 001*53 





* 

•ELSt* 

I 001*54 

009C 

£.840 

FF 68 



LDR 6,0+5 

001255 

009E 

6041 




CMV 6,65 

001256 

00 9 F 

0903 




BE >L5 

001257 





# 

•GO TO* ASK NEXT? 

001256 





**; 




TITLE 


CRM53**ktV ,CNCAKDREADEK / PUNCH TV (SAP) 


PACE IS 




TITLE 


CRMS3 , • RtV 0 • ,CARORtAOER / PUNCH TV { SAF) 


PAGE 


19 


001259 

001260 

001261 

001262 

001263 

001264 

00126b 

001266 

001267 


00A0 83C0 FFBO 


** LtTTtR D - UtVJCt TEbTS ONLY» 
**; 

* LtTTtR D; 

JMP AbKNtX 

#* * LtTTtR C - SAFtTY FLATUSES; 
**; 

* LtTTtR C; 

* LETTtR CP? 


001268 

Q0A2 

03C0 

0000 

P 

L5 

LNJ 

b,KJLC 

001269 

00A4 

E840 

F F 6 0 



LOR 

6,0 + b 

001270 

00A6 

6041 




CMv 

6 , 6 b 

001271 

00 A 7 

0905 




Bt 

>L36 

001272 





4 

•IF* 

TtbT TYPt *tQ* 


001273 

001274 

00127b 

001276 

001277 

001276 

001279 

001*80 

001281 

001282 

001283 

001284 

00128b 

001286 

001287 

001286 

001289 

001290 

001291 

001292 

001293 

001294 

00129b 

001296 

001297 

001298 

001299 

001300 

001301 

001302 

001303 

001304 

00130b 

001306 

001307 

001308 

001309 

001310 

001311 

001312 

001313 

001314 

00131b 

001316 

001317 

001318 

001319 

001320 

001321 

001322 

001323 

001324 

00132b 

001326 

001327 

001328 

001329 

001330 

001331 

001332 

001333 

001334 

00133b 

001336 

001337 

001336 

001339 

001340 

001341 

001342 

001343 

001344 

00134b 

001346 

001347 

001348 

001349 

001350 

0013b! 

001352 

001353 

001354 

00135b 

001356 

001357 

001358 

001359 

001360 

001361 

001362 

001363 

001364 

00136b 

001366 

001367 

001368 

001369 

001370 

001371 


00A8 6044 

00A9 0903 


* 

**; 


• THEN* 

»GU TU• LtTTtR 
'ELSt* 

CMV 6,68 

Bt >L36 

•00 }0* ASK NEXT? 


•LlTtKAL* 

M 


(A) *ur* test type ’to* •literal 1 < D) 


OOAA 

83C0 

PFA6 

GOAL 

03C0 

0000 

OOAt 

OOBO 

00B1 

E84Q 

6041 

090b 

FF56 

00B2 

00B3 

6044 

0903 


00b4 

83C0 

FF9C 

OOB6 

03C0 

0000 

0066 

OOBA 

GOBb 

E840 

6041 

090b 

FF4C 

OOBC 

OOBO 

6D44 

0903 


OOBt 

83C0 

FF92 

ooco 

00C2 

00C4 

ouCb 

U3C0 

£840 

6041 

0910 

0000 

FF42 


** LETTER M - PUNCH AbCll deck? 

**; 

* LETTER m; 

JMP AbKNtX 

LtTTtR MP; 

LNJ b,KJLM 

•IF* TtbT TYPt •EG* •LiTEKAL* (A) *uR* 
LOR 6,0 + 5 

CMV 6,65 

Bt >L3 7 

TtbT TYPt 
•THEN* 

•00 TO* LETTER N 
•LLbt * 

CMV 6,68 

BE >L3 7 

•00 TO* AbIC NEXT? 


* 

L36 

* 


*tQ* •LITERAL 1 ( 0 ) 


* 

4 *; 

** LETTER N - RtAO AbCll OECK? 

*#; 

* LETTER N; 

JMP AbKNtX 

LETTER NP? 

LNJ b,KJLN 

•IF* TtbT TYPt *EQ* 

LOR 6,0+5 

CMV 6 , 6 b 

Bt >L38 

TtbT TYPE •EG• 
•THEN* 

•00 TO* LtTTtR 
•ELbt• 

CMV 6,68 

Bt >L38 

*00 TO* AbK NEXT? 


* 

L37 

* 


•LITERAL'(A) •OR• 

•LITERAL*( 0 ) 

P 


00C6 

0 0 C 7 

6044 

090E 


00C8 

83 C 0 

OOCA 

FF 88 

OOCA 

OOCB 

6C52 

tF40 

FF4B 

OOCO 

0F84 

OOCE 


OOCE 

OOCF 

6C56 

EF40 

FF47 

0001 

D 3 CQ 

0000 

0003 

83C0 

FF70 

000 b 

0007 

0009 

OOOA 

03 CO 
£840 
6041 
090b 

0000 

FF20 

OOOB 

OOOC 

6044 

0903 



4 

** 

** LETTER P - PUNCH RANDOM JR INPUTTED DttK? 

**; 

* letter p; 

JMP AbKNEX 

* LtTTtR PP? 

L38 LNJ 5,KJLP 

LOR 6,0 + b 

CMV 6 , 6 b 

Bt >L39 

* * IF * TtbT TYPt •EG• 'LITERAL* 

* * THEN* 

* »00 TO* LtTTtR F 

* •ELbt* 


(A) •or• test type 'to* 'literal* (D) 


CMV 

Bt 


* 

** s 

** LtTTtR R 
**: 


6,68 

>L39 

•00 TO* AbK NEXT? 

RtAO ANY OECK IN R OR V MODE? 


LETR 

* 


LET V 
* 

* 


LETT tR Hi 
JMP 
EQU 


LOV 

STR 


•LITERAL* <R)? 
MODE? 


AbKNEX 
$ 

R OR V MODE ?= 

6,82 
6,0+23 

•00 TO* KEEP R 
LETTER V? 

B >L4G 

EQU $ 

R OR V MODE ?= 'LITERAL* (V)5 
KEEP r mode; 

LOV 6,86 

STR 6,0+23 

LtTTtR RP? 

LNJ 5,KJLR 

•GO TO* AbK NEXT? 


* 

L40 
# 

*\LETTtR F - PUNCH AT 400 CPM? 

**’ letter f; 

JMP AbKNEX 

letter fp; 

LNJ b,KJLF 

LDR 6,0+b 

CMV 6,65 

Bt >L41 

•IF* TtbT TYPE *EQ• 
'THEN* 

*00 TO* LETTER K5 
CMV 6,68 

BE >L41 

•GO TO* ASK NEXT? 


* 

L39 


•LITERAL’ (A) *uR* TEST TYPE * EQ* 'LITERAL* (0) 


* 

**; 

** LtTTtR K - READ ANO PUNCH? 
*#; 

* LETTtR K? 




TITLE 

CRMS3,*REV 0* 

tCARDREAOEK 

/ PUNCH TV (SAF) PACE 20 

00137* 

000 D 

83C0 

FF73 



JMP 

ASKNEX 

001373 





# 

LETTER 

kp; 

001374 

GOOF 

P3C0 

0000 

P 

L41 

LNJ 

5 »KJLK 

001373 





* 

•GO TO•ASK NEXT? 

00X376 





#*; 



00X377 





** LETTER 

l - PATCH 

routine; 

00X378 





#*; 


00X379 





* LETTEK i; 


00X380 

00E1 

83C0 

FF6-F 



JMP 

ASKNEX 

00X38 X 

00E3 



LI 7 

EOU 

$ 

00138* 





# 

♦COOt* 

•BEGIN* j 

001383 





* 


CALL ZVSPCH 

00X384 





* 


XLOC ZVSPCH 

00X383 





# 

1 • ENO * ; 


00X386 

00E3 

F6F0 

0001 



CALL 

ZVSPCH 


00E5 

0380 

0000 

X 




001387 






XLQC 

ZVSPCH 

00X388 





# 

•GO TO’ 

' ASK next; 

001389 





* tj 

:ND*; 


001390 





* t| 

'IN1SH* 


00X391 

00E7 

83C0 

FF69 



JHP 

ASKNEX 

00X39* 

OOE9 

0000 



A 

RESV 

541,0 

00X393 

0007 




0 

ORG 

0*7 

00X394 

0007 

1300 




DC 

2*1300• 

001395 

0008 





ORG 

0 + 8 

00X396 

0008 

4400 




PC 

Z •4400• 

001397 

0009 





ORG 

0*9 

00X398 

0009 

0000 




oc 

*•0000* 

001399 

OOOA 





OR^j 

0*10 

00X400 

OOOA 

4000 




OC 

Z *4000• 

00X401 

0006 





ORG 

0 >11 

00140* 

0006 

8000 




OC 

2*8000* 

001403 

0010 





ORG 

0+16 

00X404 

0010 

0018 




OC 

2*0018* 

00X405 

0012 





ORG 

0+18 

00X406 

0012 

0064 




OC 

Z«0064 * 

001407 

001C 





ORG 

0 + 28 

001408 

001C 

4018 




OC 

2*4018* 

001409 

001D 





ORG 

0 + 29 

00X4X0 

0010 

2000 




OC 

Z *2000• 

001411 

OOlt 





ORG 

0 + 30 

00X41* 

OOlt 

0000 




OC 

2*0000* 

001413 

001F 





ORG 

0+31 

001414 

001F 

0500 




OC 

2*0500* 

001415 

0146 





ORG 

A + 93 

001416 

0146 

0009 

9801 

6200 

AO CO 
2100 
9900 

9E40 

88EA 

88 tb 


OC 

2*0009AOC09E409801210U88EA62U0990Q88EB* 

001417 

014F 

6200 




OC 

2*6200* 

001418 

0153 





r 

A+106 

001419 

0153 

0006 

AOCO 

9C40 


2 * 0006AOC09C40980188EAB20021U0• 



9801 

*100 

88EA 

B200 




0014*0 

0150 




ORG 

2*0^1098488l00203488Eb716A88tA716AOOOO* 

001421 

0180 

0010 

9848 

8100 


DC 



2034 

88E6 

716A 




001422 

0166 

88EA 

8180 

mi 

0000 

8866 


OC 

**8l80203488Ebb206210U88EA62000008i 



6200 

2100 

88EA 






B200 

0008 





001423 

0171 





ORG 

2*OoBF98408l00203488EA716A0000984888EA* 

001424 

0171 

OOOF 

9840 

8100 


OC 



2034 

88EA 

716 A 





0000 

9848 

88EA 




001425 

017A 

6*00 

2100 

8180 


DC 

2*620021008180*03488Eb6*000008* 



2034 

0008 

88E6 

B200 




001426 

8111 





ORG 

A+154 

Z*0006984881002O3488EB7i6A88cA716A0OOQ* 

001427 

oooe 

9848 

8100 


DC 



2034 

88EB 

7 16 A 






88EA 

716A 

0000 




001428 

018C 

9840 

8180 

2034 


DC 

Z*98408180203488EAB2000008» 



88EA 

6200 

0008 




001429 

0195 





ORG 

A+172 

2*000500088180203481802034* 

001430 

0195 

0005 

0008 

8180 


DC 



2034 

8180 

2034 




001431 

0*49 




ORG 

A + 352 

001432 

0249 

3031 
3637 
4344 
494 A 

3233 

3839 

4546 

4B4C 

3435 

4142 

4748 

41)46 


DC 

30313*333435363738394l424344454 6 4748* 

001433 

0*5* 


DC 

494A434C404E4F505152535455565/58595A3A2340273022 



4F50 

5152 

5354 





5556 

5758 

595 A 






3A23 

4027 

3022 




001434 

0256 

202F 

5C2C 



DC 

2 * 202F5C2C• 

001435 

0260 

255F 
242 A 
2E3C 

3E3F 

295E 

2826 

2050 

2656 

2170 


DC 

2*255F3E3F2050242A295t26562E3C282B2170762020202020 



7620 

2020 

2020 




001436 

026C 

2020 

2020 



DC 

2*20202020* 

001437 

026E 

2020 

2020 

2020 


DC 

2*202020202020* 

001438 

0271 





ORG 

A + 392 

001439 

0271 

020A 

0180 



DC 

2 • 020A0180 * 

001440 

0274 





r 

A + 395 

001441 

0*74 

2039 

3898 

3704 


2 * 2039 3 8983704221A3696309E359527153494* 



221A 

3696 

309E 





3595 

2715 

3494 




00144* 

0270 

4014 

3393 

2396 


DC 

2*40143393239632163A9A31916099305A598858163F075717 



3216 

3A9A 

3191 





6099 

305A 

5988 






581B 

3F07 

5717 




001443 

0289 

3t06 

560A 



DC 

2 * 3E06560A * 

001444 

0286 

5F05 

5483 

5C8A 

5584 

2C8B 

2F81 

258C 

5382 

6989 


OC 

2*5F055384258C5483*C8653825C6A2F8lB9892O5*5118i>087 



2052 

5118 

5087 




001445 

0*97 

5E1F 

4r 08 



OC 

2 * 5E1F 4F08 * 

001446 

0299 

361E 

4D9D 

248F 

4E85 

2A1C 

4612 

2910 

40 3 

5092 


oc 

2«361646852910409D2A1C4C13246F4B125D924A116119/07A 



4A11 

6119 

707A 




001447 

02A5 

7968 

78B7 



oc 

2*79687867* 



TITLE 


CRM53 * * RE V G*iCARDREAPER / PUNCH TV (5AF) 
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C 


00144b 

02 A 7 

07F9 

7766 

06F8 



7665 

D5F7 

7564 



04F6 

7463 

03F5 

001449 

0263 

7362 

0160 

02F4 

2649 

7E9P 

001450 

02135 

4897 

477F 

2 1 OF 



4686 

2B0E 

4509 



2800 

449C 

3C0C 



4303 

2t06 

4202 

001451 

02C1 

566E 

4101 


001452 

02C3 

A88D 

7669 

68A7 



67A6 

C9E0 

66 A3 



C8EC 

65A4 

C7E6 



64 A3 

C6EA 

63A2 

001453 

02CF 

C5E9 

62 A1 


001454 

0201 

C4E8 

6 1 AO 

C300 



7C72 

7160 

7 OAF 



00F3 

6 FAE 

CFF2 



6 EAD 

CEF 1 

6 DAC 

001455 

0200 

COFO 

6 CA6 


00145b 

020F 

CCEF 

66 AA 

C6EE 



6 AA9 

CA10 

6 AE1 



E0C2 

0FC1 

E7FF 



OECO 

E6FE 

006F 

001457 

02 Eb 

E5F0 

OCBE 


00145b 

02 E0 

E4FC 

0660 

E3FB 



0A6C 

0890 

E2F A 

0966 

001459 

02F3 




001460 

02F5 

0001 

0002 

0003 



0004 

0006 

0007 



0008 

0009 

OOOA 

001461 

02 PE 

oooc 

0010 

0011 



0018 

0026 

003E 



003F 

0049 


001462 

001463 

0306 




001464 

001463 

001466 

001467 





00146b 

001469 

001470 

001471 

001472 

001473 

001474 

001475 

001476 

001477 





00147b 

001479 

.0306 

004C 




OOUO LKR COUNT 
eL 





TITLE 


CRMS3 * *NEV G**CARPREADER / PUNCH TV (SAF) 


PACE 22 
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* 

* CARU EQUIPMENT T6V LIBRARY - ZVKUIB 


E ZVKJiB.L 
CQRCQP REL 0200 


LINE 

© 

1 

2 

3 

4 
6 
6 

7 

8 
9 

10 

11 

13 

14 
16 
16 

17 

18 
19 
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* 

4 GLOBAL VARIABLES AND CONSTANTS 


•EXTERNAL* ( 

• INTEGER* 


IP* 

STAT WAS* 

STATUS SHOULD BE* 
HERTZ* 

CHANNEL* 

PUESPO CARP STATUS* 
TEST TYPE* 

TYPE OF PUNCHES* 

SET TO HOLLERITH* 
SET TO ASCII* 


T 



TITLE. 


CRMS3,'RtV G ', CARDREADER / PUNCH TV { SAF ) 


PAUL 23 


20 
2 1 
22 

23 

24 

25 

26 
27 
26 

29 

30 
3 1 

32 

33 

34 

35 

36 

37 
36 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 
56 

59 

60 
61 
62 

63 

64 

65 

66 
67 
66 

69 

70 

71 

72 

73 

74 

75 

76 

77 
76 
79 
60 
81 
82 
63 
84 

65 

66 
87 
86 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 
106 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 


ASCII ERROK fc.Jt.CJ / ASEJCT, 
BINARY MODE* 

RfcAD STATUS * 

NUMBER OF COLUMNS* 

LABEL 1 * 

LAbEL2* 

MAXIMUM CAROS* 

CAROS SPECIPIEO* 

CAROS RfcAO* 

BIT COUNT * 

LOW AOOKfcSS, 

R OR V MOOfc* 

HAVE GENERATfcO CHECKSUMS, 
SPEEO* 

T 1 ME 1 * 

ERROR FLAG, 

CLOCK SEMAPHORE / CKSEM♦ 

L21 SEMAPHORE, 

OEVICfcLEVtL / OLVL * 

DtVICESEMAPHORE / OVSEM, 
CPLEVEL* 

LtVTYPt* 

TEMP CHARACTER, 

sreg, 

BASE* 

SUM* 

TOTAL* 

RESPONSE* 

SET CHANNtL RtAOY / 

SET TtST MOOE / 

WAIT LOOP AOORLSS / 

RETURN FROM TEST MODE / 
ZHIAFb / ZHIAFb, 

ZVOTTY / ZVSTTY* 

RtAO or punch;); 


SCR* 

IOTM, 

10X1* 

10X2* 


GLOBAL ARRAYS 


BUFFERS 


»EXTERNAL' ( 

•INTtGER' 'ARRAY* 


CHECKSUM @0:60, 

B1NC0UNT @0:120* 

ASCCNT @0?9@, 
biNUb @o;i9@* 

PPROMS @0;i7@* 

RPROMS @0J17@, 

ONt SHOT @0 
WORO CONVER 
BUFFER1 / BUFFI @Q;83@* 
BUFFER2 / BUFF2 @0:790, 
CHAR @0:390* 

ILLEGAL ASCII @0;2@5 

); 


GLOBAL INTERRUPT SAVE ARtAS / VARIABLES 


@o:8@, 

■ ' SION TABLE @0;12b@* 


'EXTERNAL' < 

• TABLE' ISA FOR CLOCK / I SAC @31, 

@I SACO - 

1SACP 

'TABLE* ISA FOR 0EV1CE / 

@1SAKO 
I SARP 

'TABLE' ISA FOR PROGRAM / 

0ISATU 
I SAT P 


GLOBAL TABLE OF CONTROL WOROS 


'EXTERNAL' ( 

•TAoLt* 10 WORD @17*10 
^OUTPUT CONTROL 
INPUT INTERRUPT 
OUTPUT INTERRUPT 
I INPUT FIRMWARE REV 
INPUT TASK 
OUTPUT TASK 
INPUT MEMORY BYTE 
READ 

INPUT MODULE ADORES 
INPUT RANGE 
INPUT CONFIGURATION 
OUTPUT CONFIGURATI 
INPUT STATUS WORO 
INPUT DEVICE ID 
GET WAIT ADDRESS 
OUTPUT DATA 
PUNCH 

* 

* GLOBAL DEFINITIONS 


'INTEGER* 

2; 

•INTEGER' 

5@; 

SAD @31,le 

• INI EGER * 

2 * 

• INTEGER' 

5@; 

ISAP @31*16? 

'INTEGER' 

2; 

• INTEGER' 

5@; 

EXTERNALS) 

WOROS 

• INTEGER' 

o ; 

»INTEGER* 

i ; 

• INTEGER' 

2 ; 

• INTEGER* 

3 ; 

• INTEGER' 

4 ; 

'INTEGER* 

5 ; 

• INTEGER' 

6 ; 

* INTEGER* 

7 ; 

»INTEGER* 

8 ; 

•INTEGER' 

9 ; 

•INTEGER* 

105 

• INTEGER' 

115 

• INTEGER* 

12 ; 

•INTEGER* 

135 

• INTEGER' 

145 

• INTEGER' 

155 

•INTEGER' 

1605)5 


'DEFINE 

•DEFINE 


* DEF 
•DEF 
' DEF 
•DEF 
•DEF 
•OEF 
•DEF 
•OEF 
•DEF 
•DEF 
'OEF 
•DEF 


CHECK STATUS FOR ERRORS 
SHOULD BE ON " 1 «; 

SHOULD BE OFF " 0 "; 

CLEAR " SET TO ASCII "? 

INITIALIZE " BINARY MODE "5 
CHANNEL NUMBER "CHANNEL "? 

INPUT ID " INPUT DEVICE ID "5 
INPUT STATUS " INPUT STATUS WORD »? 
PUNCH A CARD " READ A CARD 
CARO COUNT " CAROS READ "5 
CREATE TEST CHECKSUMS » PUNCH A DECK 
ERROR LABEL "LABEL 1"? 

STATUS WAS " STAT WAS "i 
bUFFER " BUFFER 1 "? 


CHECK STATUS ERRORS "? 


•DEFINE' CLOCK ON 
"'BEGIN* 

'CODE''BEGIN'J 

DC 4 

J * END'; 
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•end*"? 

•DEFINE* CLOCK OFF 
"•BEGIN* 

•CODE*’BEGIN* J 

DC 5 

3 * END*« 

* END*"5 

# 

•DEFINE* LEV (TYPE*LEVEL) 

"•BEGIN* 

LEVTYPE :* TYPE ’UNION* LEVEL? 

•CODE* ’BEGIN*] 

LEV JLEVTYPE 

•END* ? 

•END*"? 

* MACHO USED TO SET AN INTEGER EQUAL TO THE ADDRESS OF AN EXTERNAL LABEL 
•DEFINE* ADDRESS OF LABEL (DEST1NATI ON*LABEL) 


1ST 

"•BEGIN* 




1S2 


•CODE* 

•BEGIN* J 



153 



STB $BI* J TEMP 

CHARACTER] 

1 SAVE B1 

154 



B >*$A 


DON’T EXECUTE JUMP 

155 


J * END* 

* 



156 


•GO TO 

• LABEL? 

(DUMMY JUMP - GETS ADDRESS ONLY) 

157 


•CODE*’BEGIN*J 



158 


ORG 

S-l-SAF 



159 

$E 

QRG 

*♦1 


SE IS THE JUMP 

160 


JCB J 




161 

SB 

ORG 

S-l+SAF 


SB IS THE ENTIRE ADDRESS 

162 

SC 

ORG 

S«*i 


SC IS THE DISPLACEMENT 

163 


JCB j 




164 

SA 

LB ' 

-$E*sX*40» 


DETERMINE IF THE EXPRESSION IS 

165 


BBF 

♦ SD 


A DISPLACEMENT UR AN IMA 

166 


JCB j 




167 


LAB 

$62*-$C 


GET THE ADDRESS OF THE DISPLACEMNET 

168 


LDR 

SR I * $62 


GET THE DISPLACEMENT 

169 


JCB J 




170 


LAB 

SB1*SB2.SRI 


CALCULATE THE EFFECTIVE ADDRESS 

171 


B 

♦ SF 



172 


JCB J 




173 

SD 

LAB 

S61**-$B 


GET THE IMA ADDkESS 

174 

SF 

STB 

SB1♦JDESTI NAT ION J+4 + SAF DESTINATION ’LOCATION* (LABEL: 

175 



JCBJ 



176 



LDB SBl,J TEMP 

character 


177 


•END* ? 




178 

•END 

•"? 




179 

* 





180 

* L 

OAD TWO 

REGISTERS FOR 

ERROR DISPLAY 

161 

•DEF 

INE* LOAD R4 R5 (INTO 

R4* INTO 

R5) 


"•bEBlN• 

• CODE*’BEGIN* J 

LDR SR5, JINTO RSJ 
LDR SR4 % JINTO R4 
•END* ? 

•END*"? 

* SAVE THE RETURN ADDRESS (CALLING ROUTINE ADDRESS) 

•DEFINE* SAVE RETURN ADDRESS 

"•integer* return address; 

•CODE*•BEGIN*J 

XLOC ZVSER 

STB SB5 * JRETURN ADDRESS 

•END*"? 

* SAVE IN REGISTERS INFORMATION FOR ERROR HALT 
•DEFINE* LOAD R4 RS AND REPORT ERROR (INTO R4* INTO RS) 

"•BEGIN* 

• CODE••BEG IN• J 

LDR $R4,JINTO R4J 
LDR $RS* JINTO RSJ 

m S65 » JRETURN ADDRESSJ 

STB SB5» ♦SA ADDRESS OF CALLING ROUTI NE 

JCB J 

LNJ SBSi<ZVStR REPORT ERROR 

JCB J 
B >*♦’$6 

$A DC <S 

dPi JERROR LABEL J 
SB ORG $J 

•END’? 

•END*"? 

* DECLARATION OF EXTERNAL PROCEDURES - SECONDARY PROCEDURES USED BY TEST 

* 


ADDRESS OF CALLING ROUTINE 
REPORT ERROR 


•EXTERNAL*( 

* PROCEDURE• 


GtNERATt TEST CHECKSUMS / 


• PROCEDURE• GENERATE CHECKSUMS 
•PROCEDURE* REPORT ERROR 

• PROCEDURE• INOUT 

•PROCtDURE* IOLD 


JGT ? 

JGC (•VALUE* ’INTEGER*)? 
JRE? 

JIG (’LOCATION* •INTEGER*% 
•LOCATION* 'INTEGER*)? 
J1L (’LOCATION* ’INTEGER** 
•LOCATION* ’INTEGER** 


227 





•VALUE* • 

INTEGER*)? 

228 

•PROCEDURE* 

PUT NUMBER 

/ 

JPN 

(•VALUE* • 

INTEGER*)? 

229 

•PROCEDURE* 

COMPARE ASCII 

/ 

JCA 

(’VALUE* » 

INTEGER*« 

230 





•VALUE* • 

INTEGER* * 

231 





•VALUE* » 

INTEGER*)? 

232 

•PROCEDURE* 

WAIT FOR RETURN 

/ 

JWR? 



233 

•PROCEDURE* 

CHECK STATUS ERRORS 

/ 

JSE? 



234 

•PROCtDURE* 

CHECK STATE 

/ 

JCS 

(•VALUE* • 

INTEGER*)? 

235 

•PROCEDURE* 

CREATE FUNCTION CODES 

/ 

JFC 

(•VALUE* * 

INTEGER*)? 

236 

•PROCEDURE* 

CALCULATE tLAPStD TIME 

/ 

JtT 

(•VALUE* » 

INTEGER*)? 

237 

•PROCEDURE* 

COMPARE CHECKSUMS 

/ 

jcc; 



236 

•PROCEDURE* 

FILL BUFFER 

/ 

JFB 

( ’INTEGER* 

•ARRAY* * 

239 





•VALUE* » 

INTEGER* * 

240 





•VALUE* • 

Integer*)? 

241 

•PROCEDURE* 

PUNCH A DtCK 

/ 

JPD 

(•VALUE* * 

INTEGER* * 

242 





•VALUE* * 

INTEGER*)? 

243 

•PROCEDURE* 

MICRO 

/ 

JMC 

( * INTEGER* 

•ARRAY*)? 

244 

•PROCEDURE* 

TIME DELAY 

/ 

JTD ? 



245 

)? (END OF 

SECONDARY PROCEDURES) 
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246 

247 
24b 
249 
260 
251 
262 

263 

264 

256 
266 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 
fcfcL 


* DtCLAKATlON OF 

* 

• EXTERNAL 1 < 

* PROCEDURE * 
•PROCEDURE• 
•PROCEDURE* 
•PROCEDURE* 
•PROCEDURE* 
•PkOCEDURE* 
•PROCEDURE* 
•PROCEDURE* 
•PROCEDURE* 
•PROCEDURE* 
•PROCEDURE* 

* DECLARAT1 ON OF 

# 

•EXTERNAL* ( 
•LAbEL* 


EXTERNAL PROCEDURES 1- RESPONSES TO NEXT? 


LETTER bP / KJL6* 

LETTER CP / KJLC* 

LETTER FP / KULF* 

LETTER IP / KJL15 

LETTER KP / KJLK? 

LETTER LP / KJLL* 

LETTER HP / KJLM; 

LETTER NP / KJLN? 

LETTER PP / KULP* 

LETTER RP / K JLR? 

FRESH START P / KJFS;); 

EXTERNAL LABELS 


FRESH START* 

TIMER* 

CP RUPT* 

DEVICEHANDLER / DEVIH* 
LEV20* 


LEV21* 
LETTER R 
LETTER V 
ASK NEXT 


/ LtTR* 
/ LETV* 
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E ZVKGB* 

LIST 





05/19/78 

1422.5R W 05/19/78 1422,6 286110OU0 

OOOOOi 






TITLE 

ZVKGB**REV 00* 

000002 


0016 





XDEF 

VKGB 

000003 


0012 





xdef 

ZVKGB 

000004 


0008 




ZKCOFi 

COMM 

8 

000006 

0000 

0000 




0 

RESV 

3*0 

000006 

0003 

0016 




T 4 

DC 

27 

000007 

0004 

2A2A 

2A2A 

2A20 



TEXT 

****** BREAK DETECT* 


0007 

4262 

4541 

4620 







4446 

5445 

4354 





000006 

0000 

4544 

202A 

2A2A 



TEAT 

•ED *****$* 


0010 

2 A2A 

2400 






000009 


0012 




ZV KGB 

EQU 

S 

000010 

0012 

0014 

8F00 

0011 

0001 


K 


SAVE 

<ZKC0M*i»Z*0011* 

oooon 




4 

•INTEGER* • 

PROCEDURE* GET BREAK? 

000012 






* 

•BEGIN* 


000013 

0016 

0F94 





6 

>Ll 

000014 

0016 

DF CO 

FFE9 



VKGB 

STB 

5 *D 

000016 






* 

ZVDBRK? 

(CALL ZVSBRK) 

000016 

0016 

U3C0 

0000 


P 


LNJ 

6 *ZVSBR< 

000017 






* 

•IF* ZVDBKF •Ej• 1 

000016 






# 

* THEN • 


000019 

00 1A 

E840 

0000 


P 


LDR 

6*ZV$BKF 

000020 

001C 

0001 





CNV 

6*1 

000021 

0010 

0968 





6NE 

>L3 

000022 





4k 

PUT NEW TEXT <••***** BREAK DETECTED *#***$")? 

000023 

001E 

FBCO 

FFE2 




LAB 

7 *D*1 

000024 

0020 

9BC0 

FFE2 




LAB 

1*T4 

000026 

0022 

9F87 





ST t) 

1 * $B7 

000026 

0023 

03C0 

0000 


P 


tto 

5 *VKPNT 

000027 

0026 

E840 

0000 


P 

L3 

6 *ZV$BKF 

000026 

0027 

83C8 

FFD6 




JMP 

*D 

000029 






* 

* ANSWER» ZVDBKF? (RETURN BREAK STATUS) 

000030 






4k 

•END*; 


000031 

000032 






4k 

4k 

•END* 

•FINISH* 


000033 


0029 




LI 

EDO 

JMP 

$ 

000034 

0029 

83C0 

0000 


P 


ZKSEX 

000036 







XLUC 

CTRL LINK 

ZKSEX 

000036 







ZK SEX 

000037 







XLUC 

ZVSBRK 

.000036 







CTRL LINK 

Z V$BR 

000039 







XLUC 

ZVSBKF 

000040 







CTRL LINK 

ZVSBK 

000041 







XLUC 

VKPNT 

000042 

0026 

0012 





END 

zvkgb*zvkgb 

0000 ERR COUNT 

1 









L 



4 
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ZVKGC. 

LIST 



000001 

000002 


0009 


000003 


0004 


000004 


0008 


000005 

0000 

0000 


000006 


0004 


000007 

0004 

8F00 

0001 


0006 

0011 


00000 b 

000 7 

OF 8 1 

001C 

000009 

OOOOiU 

000011 

000012 

0009 

F F F 6 


DF CO 

000013 

ooob 

E807 


000014 
000015 
000016 
000017 

oooc 

EF40 

FFF4 

000018 

000019 

000E 

EF40 

0000 

000020 

OOOuZi 

000022 

0010 

1C04 


000023 

000024 

000025 

0011 

D840 

0000 

000026 

000027 

0013 

mi 

0000 

000028 

0015 


00002 ? 

000030 

0016 

9F40 

FFEB 

000031 

0016 

D3C0 

0000 

000032 

001 A 

OF 80 


000033 

000034 

00 IB 


0000 

000035 

000036 

001C 

001C 


000037 

001 D 

0002 


000038 

00 1E 



000039 

00 IE 

E2C6 

FFE2 

000040 

000041 

000042 

0020 

EF48 

FFEO 

000043 

000044 

000045 

0022 

63C8 

FFDD 

000046 


0024 


000047 

000048 

000049 

000050 

0024 

63C0 

0000 

000051 

000052 

000053 

0026 

0004 



0000 ERR COUNT 


05/19/78 1422.8R W 05/19/78 1422.8 


ZKCOM 

D 

ZVKGC 


# 

* 

* 

VKGC 


* 

$E 


# 

$A 

* 

SB 


# 

* 

# 

El 


TITLfc 

XDEr 

XDtF 

COMM 

RESV 

EQU 

SAVE 


ZVKGC**3EV 00' 
VKGC 
ZVKGC 
8 

4*0 

$ 

<ZKCGM+1*Z*0011* 


3509iOOuO 


LI 

GET 


•PROCEDURE' 

♦ BEGIN* 

•INTEGER* A? 

STB 5,D 

LDR 6 ♦ S B / 

ST R 6 * D* 1 

• CODE* •BEGIN*] 

ST K SK6 * +SA 
XLUC 2VS I A 
$R6 *♦SA 
Z VS I A 
ICB J 

LDV SR1*4 
SR 1 * 4 

$R5*ZVSTTY 
ICB] 

BNEZ SR5 ♦ + SE 
ADV SR 1*-2 
SR5 * + SE 
SR 1 *-2 

i< "$tL,U+2 

SB5 *ZVS1 A 
> ♦ SB 

CODE BREAK] 
<ZVCONS 
<S 
JCBJ 
<D + 2 


CHAR (•LOCATI ON * 'INTEGER* TARGET)* 


RUNNY * THERE IS AN ADDRESS IN R KEG 


SIR 

XLUC 


LDy 

LDR 


STK 

LNJ 

B 

DC 

DC 


TWO BY IE INPUT 


YES* PONT LUOK FUR C/R 


DC 
QKo 

llh 

STK 

TAKGtT 

•FINISH* 

JMP 

EUu 


5 

6 **D+1 
6 «*D +1 

;= 'BITS* 


@8,80 TARGEIi 


(CHAR IN RT BYTE) 


*D 
S 

ZXSEX 
XLUC ZKSEX 

CTRL LINK ZKSEX 
XLDC ZVCONS 

XLUC ZVSTTY 

CTRL LINK ZVSTT 
END ZVKGC*ZvKGC 
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zvkjca 

.LIST 





05/19/78 

1422.8R W 05/19/78 1422.8 745380000 

oooooi 







III? 

ZVKJCA * * REV 00* 

000002 


0025 





JCA 

000003 

000004 


0020 

0008 




ZKCQM 

COMM 

ZVKJCA 

8 

000005 

000006 

0000 

0000 




D 

RtSV 

7,0 

0007 

0012 




17 

DC 

18 

000007 

0008 

5641 

4C55 

4520 



TEXT 

•VALUE READ IS HEXS* 


0008 

5245 

4144 

2049 







5320 

4845 

5824 





000008 

0011 

OOOC 




T8 

DC 

12 

000009 

0012 

2C20 

5348 

4F55 



TEXT 

•* SHOULD BE$* 


0015 

4C44 

2042 

4524 




000010 

0018 

0000 




T9 

DC 

13 

oooou 

0019 

2C20 

494E 

24)43 



TEXT 

•* IN COLUMN $» 


001C 

4F4C 

2400 

5540 

4E2Q 





000012 


0020 




ZVKJCA 

EOU 

$ 

000013 

0020 

8F00 

0001 


K 


SAVE 

<ZKCOM+1*Z*0011* 


0022 

0011 







000014 

0023 

otei 

0059 




B 

LI 

000015 





# 

*PR0CEDURE*C0MPARE ASCI 1(* VALUE*•INTEGER*TEMP BUFFER*TEMP CHAR*COLUMN)5 

000016 






# 

•BEGIN* 


000017 

0025 

OFCO 

FFDA 



JCA 

STB 

5 *D 

000018 

0027 

8F87 





RSTR 

$B7 *Z*0700» 


0028 

0700 






000019 

0029 

8F40 

FF07 




SAVE 

D+l*2*0700* 


0028 

0700 







000020 







XLOC 

2VSER 

000021 

002C 

OFCO 

FF07 




STB 

SB5 *0+4 

ZVDTTY •ME* 0 

000022 






# 

•IF* 

000023 






# 

•THEN* 

000024 






# 

•BEGIN* 

000025 

002E 

E840 

0000 


P 


LDR 

6 *ZV$TT Y 

000026 

0030 

6938 





BEE 

6 *>L3 

000027 






# 


•IF* 

000028 






# 


GET BREAK *EO* TRUE 

000029 

0031 

D3C0 

0000 


P 


LNj 

5 *VKGB 

000030 






# 


•THEN* 

Soooii 

0033 

6001 




# 

CMV 

•GO TO* ASK NEXT? 

6.1 

000033 

000034 

0034 

0901 

0000 


P 

# 

BE 

ASKNEX 

•IF*TEMP BUFFER *Nt« TEMP CHAR 

000035 






# 


•THEN* 

000036 






# 


•BEGIN* 

000037 

0036 

E840 

FFCA 




LDR 

6 ,D+l 

000038 

0038 

£940 

FFC9 




CMR 

6*D+2 

000039 

000040 

003A 

0901 

0040 




BE 

L6 





* 

PUT NEW TEXT ("VALUE READ IS HEX$">; 

000041 

003C 

FBCO 

FFC8 




LAB 

7 *D+5 

000042 

003E 

96C0 

FFC8 




LAB 

1 * T7 

000043 

0040 

9F87 





STB 

1 *$67 

000044 

0041 

03C0 

0000 


P 


LNJ 

5 *VKPNT 

000045 

0043 

FBCO 

FFC1 




LAB 

7 * D+5 

000046 

0045 

E840 

FFB6 




LDR 

6 ,D+l 

000047 

0047 

7 





STR 

6.SB7 

000048 

0048 

D3C0 

0000 


P 


LNJ 

5 * VKPH 

000049 






* 

POT HEX (TEMP BUFFER)5 

000050 






* 


POT TEXT ("* SHOULD BE$»); 

000051 

004A 

FBCO 

FFBA 




LAB 

7 *D+5 

000052 

004C 

9BC0 

FFC4 




lab 

1 * T8 

000053 

004E 

9F87 





STB 

1*$B7 

000054 

004r 

03C0 

0000 


P 


LNJ 

5, VKPT 

000055 

0051 

FBCO 

FFB3 




LAB 

7.D+5 

000056 

0053 

E840 

FFAE 




LDR 

6 * D+2 

000057 

0055 

EF07 





STR 

6 *$B7 

000058 

0056 

03C0 

0000 


P 


LNJ 

5,VKPH 

000059 

000060 






ik 


POT HEX (TEMP CHAR)5 

0058 

FBCO 

FFAC 




LAB 

7 * D+5 

000061 

005A 

9BC0 

FF6D 




LAB 

1, T9 

888811 

0050 

005D 

till 

0000 


P 


STB 

LNJ 

i,SB7 

5 *VKPT 

000064 






ik 


POT TEXT ("* IN COLUMN $«); 

000065 

005F 

FBCO 

FFA5 




LAB 

7*D+5 

000066 

0061 

E84Q 

FFA1 




LDR 

6 *D+3 

000067 

0063 

EF07 





STR 

6 * $B7 

000068 

0064 

03C0 

0000 


P 


LNJ 

5 * JPN 

000069 






* 


POT NUMBER (COLUMN); 

000070 






ik 


•END*; (OF IF) 

000071 






* 

•END* 


000072 







•ELSE* 


000073 

000074 

0066 

0F81 

0014 



ik 

•BEGIN* 

B L6 

000075 


0068 




L3 

EQU 

S 

000076 






# 

LABEL 2 ;= ’LITERAL* (CA); 

000077 

0068 

£870 

4341 




LDR 

6,517217 

6 .LABEL2 

000078 

000079 

006A 

EF40 

0000 


P 

ik 

STR 

• CODE*'BEGIN* J 

LDR $R6« J TEMP CHAR 

000080 






ik 


000081 

006C 

£840 

FF95 




LDR 

$R6 *D+2 

000082 

006E 

C84Q 

FF92 




LDR 

SR4 * D+1 

000083 

0070 

0840 

FF92 




LDR 

$R^*D+3 

000084 

0072 

DCCO 

FF91 




LDB 

SB5 * D + 4 

000085 

0074 

OFCO 

0000 


T 


STB 

$B5 * +$A 

000086 

0076 

0380 

0000 


X 


LNJ 

SB5 * <ZVSER 

000087 

0078 

0F80 



r 


B 

> + SB 

000088 

0079 

0079 




SA 

DC 

<S 

000089 

007A 


0000 


X 


DC 

<LABEL1 

000090 

007B 





SB 

ORG 

S 

000091 






# 

LOAD R4 R5 AND REPORT ERROR (TEMP BUFFER* COLUMN); 

000092 






ik 

•END*; 

000093 






ik 

•END* » 


000094 






ik 

•END*; 
•FINISH* 

(OF SEGMENT) 

000095 






ik 


000096 

0076 

83C8 

FF84 



Lb 

JMP 

*D 

000097 


0070 




LI 


$ 

000098 

0070 

83C0 

0000 


p 


ZKSEX 

000099 







CT$L LINK 

ZKSEX 

000100 







ZKSEX 

000101 







XLOC 

VKPT 

000102 







XLOC 

VKPNT 

000103 







XLOC 

VKPH 

000104 







XLOC 

VKGB 








TITLE 
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000105 

000106 

000107 

00010b 

000109 

000110 

000111 007F 0020 

0000 ERR COUNT 
fcL 






TITLE CRMS3,• REV G* .CARDREADER / PUNCH TV (SAF) PAUL 30 


ZV KJCC 

• list 





05/19/78 

1422.8R W 05/19/78 1422.2 309U4Q0U0 


000001 







TITLE 

ZVKJCC , * REV 00* 


000002 


002F 





XDEF 

JCC 


000003 


002A 





XDtF 

ZVKJCC 


000004 


0008 




ZKCOM 

COMM 

8 


000003 

0000 

0000 




0 

RESV 

13,0 


000006 

COOP 

0007 




T10 

OC 

7 


000007 

OOOL 

ODOA 

4341 

5244 



TEXT 

Z•0DQA•,*CAROS• 



oon 

2400 








000006 

0012 

0008 




T17 

OC 

8 


000009 

0013 

434F 

4C55 

404E 



TEXT 

•COLUMN S* 



0016 

2024 








000010 

0017 

0003 




T21 

OC 

3 


000011 

0016 

2C20 

2400 




TEXT 

1 , $! 


000012 

001A 

0005 




T 29 

OC 

5 


000013 

0016 

5 2 4 F 

5720 

2400 



TEXT 

•ROW $» 


000014 

001E 

0002 




T35 

DC 

2 


000013 

00 IF 

2C24 





TEXT 

* ,$• 


000016 

0020 

0006 




T 39 

OC 

8 


000017 

0021 

4452 

4F50 

5045 



TEXT 

•OROPPEOS* 



0024 

4424 








000016 

0025 

0007 




T 42 

OC 

7 


000019 

0026 

5049 

4348 

4544 



TEXT 

•PICKED*• 



0029 

2400 








000020 


002A 




ZVKJCC 

EQU 

$ 


000021 

002A 

8F00 

0001 


K 


SAVE 

<ZKCOM+1tZ * 0011• 



002C 

0011 








000022 






# 

•BEGIN* 



000023 

0020 

0F81 

019C 




B 

LI 


000024 






* 

•INTEGER* J«1S 


000023 






* 

•INTEGER* MAS<; 


000026 






* 

•INTEGER* RANGE? 


000027 






* 

•INTEGER* PRINT CARO', 


000026 






# 

•INTEGER* PRINT COLUMN; 


000029 






* 

•INTEGER* PRINT ROW; 


000030 

0Q2F 

OFCO 

FFOO 



JCC 

ST B 

5,0 


000031 






* 

PRINT 

caro ;= - 1 ; 


000032 

0031 

6CFF 





LDV 

6.-1 


000033 

0032 

EF4Q 

FFD2 




STR 

6 , D + 5 


000034 






# 

PRINT 

row ;=io; 


000033 

0034 

4C0A 





LDV 

4.10 


000036 

0035 

CF40 

FF01 




STR 

4*0 + 7 


000037 






* 

isso; 



000036 

0037 

6740 

FFCA 




CL 

0+2 


000039 

U039 

FBCO 

FFCE 




LAd 

7.0 + 8 


000040 

0036 

96C0 

FFC8 




lab 

1*0 + 4 


000041 

003U 

9F87 





ST b 

1.SB7 


000042 






* 

INOUT 

(RANGE.INPUT RANGE @00)* 


000043 

003E 

OF 00 

0009 


X 

N1 

NOP 

<I0W0R0+9 


000044 

0040 

0840 

FFFE 




LOR 

5.N1+1 


000043 

0042 

OF 40 

FFC6 




STR 

5.0 + 9 


000046 

0044 

03C0 

0000 


P 


LNj 

5.J10 


000047 

0046 

FBCO 

FFC1 




lab 

7,0 + 8 


000046 

0048 

9BC0 

0000 


P 


lab 

l.SETTOH 


000049 

004A 

9F87 





STB 

1 ,$B7 


000030 






* 

INOUT 

(SET TO HOLLERITH, OUTPUT TAjK eO@); 


000031 

0046 

OFOO 

0005 


X 

N2 

NOP 

<1OWORO+ 5 


000032 

0040 

£840 

FFF£ 




LOR 

6.N2+1 


000033 

004 F 

EF40 

FFB9 




STR 

6,0+9 


000054 

0051 

03C0 

0000 


p 


LNJ 

5, JIO 


000053 

0053 

03C0 

0000 


p 


LNJ 

3.VKGB 


000056 






* 

•IF* GET BREA< *£Q* TRUE 


000057 






* 

•THEN* 


000056 






* 


* GO TO* ASK NEXT; 


000059 

0055 

6001 





CMV 

6,1 


000060 

0056 

0901 

0000 


p 


BE 

ASKNEX 


000061 


0058 




L5 

EQU 

$ 


000062 






ft 

* FOR * 

J J50 •ST EP * 1 •UNTIL* 6 


000063 

0058 

8740 

FFA8 




CL 

0+1 


000064 






* 

• 00* 



000065 






* 

•BEGIN* 


000066 

005 A 

£840 

FFA6 



L6 

LOR 

6,0+1 


000067 

005C 

6£FA 





AOV 

6,-6 


000066 

0050 

6A01 

0163 




BGZ 

6 ,L7 


000069 






* 


PRINT COLUMN ;z J*16+i; 


000070 

005F 

£840 

FFA1 




LOR 

6,0+1 


000071 

0061 

6004 





SOL 

6,4 


000072 

0062 

6E01 





AOV 

6,1 


000073 

0063 

EF40 

FFA2 




STR 

6,0 + 6 


000074 






* 


•IF* CHECKSUM @J@ «N£* ©LOWAODRESs 

+ J6? 

000075 






* 


•THEN* 


000076 

0065 

9840 

0000 


p 


LOR 

l.LOWAOO 


000077 

0067 

9A40 

FF99 




ADO 

1,0+1 


000076 






* 


•BEGIN* 


000079 

0069 

9F40 

FF9E 




STR 

1,0 + 8 


000060 

0066 

C848 

FF9C 




LOR 

4, *0 + 8 


000081 

0060 

A840 

FF93 




LDR 

2,0+1 


000082 

006F 

C920 

0000 


X 


CMR 

4,<CHEC<S.$R2 


000083 

0071 

0901 

0146 




BE 

L8 


000084 






ft 


•IF* PRINT CARO *EQ* -1 


000083 






* 


♦THEN* 


000086 






* 


* BEGIN* 


000087 

0073 

C840 

FF91 




LOR 

4,0 + 5 


000086 

0075 

4DFF 





CMV 

4,-1 


000089 

0076 

0980 





8NE 

>L9 


000090 






* 


•integer* eject; 


000091 






* 


EJECT *HtX• (4600); 


000092 

0077 

0870 

4600 




LOR 

5,-17920 


000093 

0079 

0F40 

FF8E 




STR 

5,0 + 8 


000094 

0076 

FBCO 

FF8D 




LAB 

7 ,D + 9 


000093 

0070 

9BC0 

FF8A 




LA6 

1 ,0 + 8 


000096 

007F 

9F87 





ST B 

1, SB 7 


000097 






# 


INOUT (EJECT,OUTPUT TASK 

eoe 

000096 

0060 

OFOO 

0005 


X 

N3 

NOP 

<10W0R0+5 


OG0099 

0082 

F840 

FFFE 




LOR 

7 , N 3 +1 


OOOiOO 

0084 

FF40 

FF85 




STR 

7,0+10 


000101 

0086 

03C0 

0000 


p 


LNJ 

5.J1U 


000102 






# 


PUT NEW TEXT ("TC UCARDS 

» H ) 5 

000103 

0068 

FBCO 

FF80 




LAB 

7,0+9 


000104 

008A 

9BC0 

FF82 




LAB 

1, T 10 


000105 

008C 

9F87 





STB 

1 ♦ $B 7 


000106 

0080 

03C0 

0000 


p 


LNJ 

3 , VKPNT 


000107 






* 


PRINT CARO ;s CARDS READ 

-i; 



/if" 



j) 
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000106 

OObF 

E840 

0000 

P 


LBk 

6 ,CARDS-* 


000109 

0091 

6tFF 




ADV 

6,-1 


ooono 

0092 

EF40 

FF 72 



STR 

6 ,D+5 


000111 

009 ** 

FBCO 

f- F74 



LAb 

7,D+9 


oooiu 

0096 

EF 07 




STR 

6 , $B7 


000113 

000114 

0097 

03C0 

0000 

P 

* 

LNJ 

3 , VKPD 

PUT DECIMAL (PRINT CARD)? 

000115 





* 



•IF* CARDB READ *GT• 4 

000116 





# 



•THEN* 

000117 

OOOilb 

0099 

E840 

0000 

P 

* 

LDR 

6 , CAKDSR 

•BEGIN* 

000119 

009b 

6004 




CMv 

6,4 


000120 

000121 

009C 

0A8A 



# 

BALE 

>L9 

SUM SUM+TIMEi-100?(SUM OF ERROR SPEEDS) 

000122 

009P 

C840 

0000 

P 


LDR 

4, SUM 

000123 

009F 

CA40 

0000 

P 


APP 

4,TI ME 1 


000124 

G0A1 

4L9C 




ADV 

4,-100 


000123 

000126 

00A2 

CF4Q 

0000 

P 

* 

STR 

4, SUM 

TOIAL ;= TOTAL ♦ 1? (TOIAL ERRORS) 

000127 

00A4 

bACO 

0000 

P 


INC 

TOTAL 

00012b 





* 


/END*? 

000129 





# 


•END* 

? 

000130 





**; 




000131 





** 


COMPAKt COLUMN CHECKSUMS? 

000132 





**; 




000133 


00A6 



L9 

tou 

$ 


000134 





* 


MASK 

;= •hex• (booo); 

000133 





# 

CHECK. NEXT 

column; 


000136 

00A6 

EB70 

8000 



LDR 

6,=-32768 


000137 

OOAb 

EF40 

FF5A 



STR 

6, D + 3 


00013b 


OOAA 



L12 

EQU 

$ 

CHECKSUM *MASk* MAsk *Nt* GLOWADDRESS + J@ 

000139 





* 


•IF* 

000140 

OOAA 

E840 

FF58 



LDR 

6 ,D + 3 

000141 

OOAC 

9840 

FF54 



LDR 

1 ,D+1 


000142 

OOAfc. 

E510 

0000 

X 


AND 

6» <CHEC<S# $R1 

000143 

0000 

9A40 

0000 

P 


ADD 

I,LOWADD 


000144 

0002 

9F40 

FF 56 



SIR 

1, D + 9 


000143 

0004 

C848 

F F 5 4 



LDR 

4,*D + 9 


000146 

0006 

C540 

FF4C 



AND 

4, D+ 3 


000147 

0008 

E954 




CMR 

6, = $K4 


00014b 

00b9 

0901 

0045 



BE 

L13 


000149 





* 


• MASK 

• MASK »AND* J •LI* 5 

000150 





* 


• I HEN * 

000151 

000152 





* 


•BEGIN* 

0000 

E840 

FF45 



LDR 

6 ,D+ i 


000153 

0000 

6005 




CMV 

6,5 


000154 

000155 

oobe 

0881 

0040 


# 

bAGE 

L13 

LABEL 2 ’LITERAL* (CC)? 

000156 

ooco 

C87Q 

4343 



LDR 

4, = 172 19 

000157 

00015b 

00C2 

CF40 

0000 

P 

# 

STR 

4,LABEL2 

•IF* ZVDTIY •EQ* 0 

000159 





* 



•THEN* 

000160 

000161 

0QC4 

0840 

0000 

P 

* 

LDR 

5 *ZV$TT V 

•BEGIN* 

000162 

00C6 

5981 

0007 



BNE2 

5,L14 


000163 

OQCb 

0840 

FF3C 



LDR 

$R5,D+ 5 


000164 

COCA 

C840 

FF3B 



LDR 

4R4,D+ 6 


000165 

000166 

OOCC 

D3C0 

0000 

P 

* 

LNj 

5, JRE 

REPUR 1 ERRUR? 

888112 





* 

# 



•END* ? 

•IF* 1 * t(J * 0 

000169 


OOCE 



L14 

EQU 

$ 


000170 

000171 

OOCE 

E840 

FF33 


# 

LDR 

6,D + 2 

•THEN* 

000172 

0000 

6988 




BNE2 

6 ,>L 16 


000173 


0001 



L15 

EQU 

S 


000174 




* 

PUT COLUMN 

; 

PUT NEW TEXT ("COLUMN $")? 

000175 

0001 

FBCO 

FF 36 



LAB 

7 ,D + 8 

000176 

0003 

9BC0 

FF3E 



LAB 

l, T 1 7 


000177 

0005 

9F87 




STb 

1,$B7 


00017b 

000179 

0006 

03C0 

0000 

P 

* 

LNu 

5,VKPNT 

•IF* 1 *L1 • 16 

000180 


0008 



Lit 

EQU 

$ 


000181 





* 



•THEN* 

000182 

000183 

000b 

E840 

FF29 


* 

LDR 

6,0+2 

•BEGIN* 

000184 

OODA 

6010 




CMV 

6,16 


000185 

000186 

OODb 

06 A1 



* 

BAGE 

>Llb 

•INTEGER* CORRECT column; 

000187 





# 



'IF* PUESDO CARD STATUS *EQ* *HEX* (1800) 

000188 

000189 

OOQC 

C840 

C970 

0000 

P 

* 

LDR 

4, PUESDU 

•THEN* 

000190 

GOOE 

1800 



CMR 

4, = 6144 


000191 

000192 

OOEO 

0987 



* 

BNt 

>L19 

CORRECT COLUMN J= PRINT COLUMN * 2 

000193 

000194 

00E1 

0840 

FF24 


* 

LDR 

5 f D + 6 

•ELSE* 

000195 

00E3 

5001 





5,1 


000196 

00E4 

DF40 

FF23 



3 ,D+8 


000197 

00E6 

0F85 




B 

>L20 


000198 

00E7 

E840 

FFIE 


L19 

LDR 

6 »D + 6 


000199 

000200 

00E9 

EF40 

FF1E 


# 

STR 

6 ,D + 8 

CORRECT COLUMN ? = PRINT COLUMN? 

000201 


OOEB 



L20 

EQU 

$ 

000202 

000203 

OOEb 

FBCO 

FF1D 


* 

LAb 

7 ,D+9 

PUI NUMBER (CORRECT COLUMN)? 

000204 

OOEO 

E840 

FF 1A 



LDR 

6 ,D + 8 


000205 

OOEF 

EF07 




STR 

6, $B7 


000206 

000207 

OOFO 

P3C0 

0000 

P 

# 

LNU 

5, JPN 

PUT TEXT (”, $«); 

00020b 

00F2 

FBCO 

FF16 



LAb 

7 , D + 9 

000209 

00F4 

9BC0 

FF22 



LAb 

i,T21 


000210 

00F6 

9F87 




STB 

1 ,SB7 


000211 

000212 

0GF7 

P3C0 

0000 

P 

# 

LNU 

3 , VKPT 

I 1 +1? 

000213 

000214 

Q0F9 

8AC0 

FF08 


# 

INC 

D+2 

•END* 

000213 





* 


* ELBE • 

000216 

000217 

OOFB 

0F64 



* 

B 

>L13 

•BEGIN* 

000218 


OOFC 



Lib 

EQU 

$ 


000219 

000220 

OOFC 

8740 

FF05 


* 

CL 

D + 2 

i ;=o? 




TITLE 

CRM53 * 

•REV G* 

.CAKDREADEK 

/ PUNCH 

TV (SAF) PAGE 32 

QQQ221 





# 


•GO TO* put column; 

000222 

00FE 

GFD3 




B 

>L 1 5 

000223 





* 


•end*; f % 

000224 





* 


'end* ; 1 4 ,, 

00022 $ 


OOFF 



L13 

EQU 


000226 





# 


MASK ;= *BITS* ei$ti@ mask; 

000227 

OOFF 

E840 

FF03 



LOR 

6*0 + 3 

000226 

0101 

6041 




SOR 

6 il 

000229 

0102 

EF4Q 

FFOO 



STR 

6*D*3 

000230 





# 


PRINT COLUMN ;z PRINT COLUMN ♦ 1* 

000231 

0104 

8AC0 

FF01- 



INC 

D+6 

000232 





* 


•IF* MASK *NE* 0 

000233 





* 


•THEN* 

000234 





* 


•GO TO* CHECK NEXT COLUMN? 

00023$ 

0106 

6981 

FFA3 



6NE2 

6,L12 

000236 





Ik 


•IF* J *LT* 5 

000237 





# 


•THEN* 

000236 





* 


•GO TO* END UF LOUP? 

000239 

0108 

C840 

FEF8 



LDR 

4*D+1 

000240 

01QA 

4D0$ 




CMV 

4,$ 

000241 

0106 

0801 

0061 



bal 

Lb 

000242 





# 


•IF* U • GT • $ 

000243 





# 


•THEN* _ „ 

000244 





* 


•GO TO* SKIP row; 

00024$ 

OlOD 

4D05 




CMV 

4,$ 

000246 

010E 

OAO1 

0057 



BAD 

L27 

000247 





* 


•IF* CHECKSUM £50 *NE* @LOWADDRESS+$e • AND* J *EQ* 5 

000246 

OHO 

D800 

0005 

X 


LDR 

5 *<CHEC<S+5 

000249 

0112 

1 C0$ 




LDV 

1*5 

0002 $0 

0113 

D918 

0000 

X 


CMR 

5 ,*<LOWADD.$R1 

000251 

011 $ 

090A 




BE 

> L28 

000252 





* 


* THEN * 

000253 

0116 

C951 




CMR 

4 *s$R1 

000254 

0117 

0988 




BNE 

>L28 

000255 





* 


PUT NEW TEXT ("ROW $")? 

000256 

0116 

FBCO 

FEEF 



LAB 

7 *D*8 

000257 

QUA 

9BC0 

FEFF 



lab 

1.T29 

000256 

011 C 

9F87 




STB 

1.SB7 

000259 

01 ID 

D3C0 

0000 

P 


LNJ 

5 *VKPNT 

000260 


01 IF 



L28 

EQU 

% 

000261 





* 


MASK ;= * HEX» (800); 

000262 





* 

CHECK NEXT 

row; 

000263 

011 F 

E87Q 

0800 



LDR 

6*52048 

000264 

0121 

Er 40 

FEE! 



STR 

6 * D+ 3 

00026$ 


0123 



L30 

EQU 

$ 

000266 





# 


PRINT ROW ; = PR 1N1 ROW -1? 

000267 

0123 

88 CQ 

FEE3 



DEC 

□ ♦7 

000266 





* 


•IF* PRINT ROW • EQ* -1 

000269 





* 


•THEN* 

000270 

012 $ 

L840 

FEE1 



LDR 

6 *D* 7 

000271 

0127 

6 DFF 




CMy 

6 * -1 

000272 

0128 

0984 




BNt 

>L3 1 

000273 





* 


PRINT ROW K U? 

000274 

0129 

4C06 




LDV 

4*11 s .% 

00027$ 

OKA 

CF40 

FEDC 



STR 

4 , D ♦ 7 / 4 \ 

000276 


012 Q 



L31 

EQU 

$ r / 

000277 





* 


•IF* PRINT ROW »tu* 10 ’4 J 

000276 





# 


•THEN* 

000279 

012 C 

E84Q 

FEDA 



LDR 

6 * D+ 7 

000280 

012 L 

6D0A 




CMV 

6,10 

000281 

012F 

0984 




BNt 

>L32 . 

000282 





# 


PRINT ROW ;= 12? 

000283 

0130 

4C0C 




LDV 

4,12 

000284 

0131 

CF40 

FED5 



STR 

4*D+7 

00028$ 


0133 



L32 

EQU 

$ 

000286 





* 


•J F • CHECKSUMS * MASK * MASK »NE* @LOWADDRESS+5@ 

000287 

0133 

E840 

FECF 



LDR 

6 , D + 3 

000288 

013$ 

E500 

0005 

X 


AND 

6 * <CHEC<S+ $ 

000289 

0137 

C840 

FECB 



LDR 

4,D+3 

000290 

0139 

1 C0$ 




LDV 

1*5 A r 

000291 

013A 

C$18 

0000 

X 


AND 

4,*<L0WADD.$R1 

000292 

013C 

L954 




CMR 

6 * = 3>R4 

000293 

0130 

0901 

0021 



Bt 

L33 

000294 





* 


•MASK* MASK • AND* J *tu* 5 

00029$ 





* 


* J HEN • 

000296 





* 


•BEGIN* 

000297 

013F 

9940 

FEU 



CMR 

1*DU 

000298 

0141 

0981 

00 ID 



BNt 

L33 

000299 





* 


LABEL 2 Ss *LJURAL» (CR) ? 

000300 

0143 

E87Q 

4352 



LDR 

6,=17234 

000301 

014$ 

EF40 

0000 

P 


STR 

6*LABEL2 

000302 





* 


•IF* 2VDITY *EQ* 0 

000303 





# 


•THEN* 

000304 





* 


•BEGIN* 

00030$ 

0147 

C840 

0000 

P 


LDR 

4,ZV$TTY 

000306 

0149 

4981 

0007 



BNE2 

4,L34 

000307 

0146 

D840 

FEB9 



LDR 

$R5,D*5 

000308 

01 4D 

C840 

FE 69 



LDR 

$R4 * D-f 7 

000309 





* 


LOAD R4 Kb (PRJNT ROW, PRJNI CARD) ? 

000310 

014F 

D3C0 

0000 

P 


LNU 

5 * JRE 

000311 





Ik 


REPORT ERROR? 

000312 





* 


•end* ; 

000313 

0151 

FBCO 

FE66 


L34 

LAB 

HD+8 

000314 

01$3 

L840 

FEB3 



LDR 

6 * D* 7 

00031$ 

015$ 

EF07 




STK 

6 « $B7 

000316 

0156 

D3C0 

0000 

P 


LNJ 

5, JPN 

000317 





* 


PUT NUMBER (PRINT ROW) ? 

000318 





* 


PUT TEXT (",*")? 

000319 

0158 

FBCO 

FEAF 



LAB 

7 * D + 8 

000320 

OKA 

9BC0 

FEC3 



LAB 

1 * T35 

000321 

015C 

9F87 




STB 

1 * $B7 

000322 

015D 

D3C0 

0000 

P 


LNJ 

5 * VKPT 

000323 





# 


•END*? 

000324 


015F 



L33 

EQU 

$ 

00032$ 





* 


MASK ;= MASK/2 * 

000326 

015F 

E840 

FEA3 



LDR 

6 * D+3 

000327 

0161 

6061 




SAR 

6*1 (f \ 

000328 

0162 

EF40 

FEAO 



STR 

6 *D+3 I J 

000329 





* 


'IF* MASK • NE • 0 V> 

000330 





# 


•THEN* 

000331 





# 


* GO TO* CHECK NEXT RQw? 

000332 





Ik 

SKIP ROW; 


000333 

0164 

6981 

FFBE 



BNtZ 

6 , L30 
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000334 


0166 



L27 

EOU 

$ 

000335 

0166 

E800 

0006 


# 


•IF* CHECKSUM g6@ *LT* GLOW ADDRESSES * AND* J * EQ* 6 

000336 

X 


LDR 

6,<CHEC<S+6 

000337 

000336 

0168 

0169 

1C06 

E918 

0000 

X 


m 

1*6 

6,*<LGWADD*$R1 

000339 

016B 

0881 

0026 



BAGE 

L37 

000340 





* 


•THEN* 

000341 

000342 





* 


• BEGIN* 

0160 

9940 

FE93 



CMR 

1*D+1 

000343 

016F 

0981 

0022 



BNt 

L37 

000344 

0171 

E2 18 

0000 


# 


BIT COUNI;* fcL0wADDRE5S*6fc - CHECKSUM @6e? 

000345 

X 


SUB 

6 **<L0WADD#$R1 

000346 

0173 

8256 




NEG 

= 3»R6 

000347 

0174 

EF40 

0000 

p 


STR 

6*B1TC0J 

00034b 

0176 

C870 



# 


LABEL 2 J* •LIT fcRAL » (CD)* 

000349 

4344 



LOR 

4 * = 1722 0 

000350 

0178 

CF40 

0000 

p 


STR 

4,LABEL* 

000351 





* 


•IF* 2VDITY •EQ* 0 

00035* 





# 


•THEN* 

000353 





* 


* BEGIN* 

000354 

017A 

0840 

0000 

p 


LOR 

5 *ZV$TT Y 

000355 

017C 

5981 

0007 



KS* 

5*L38 

000356 

017E 

0840 

FE86 



$R5 *D+5 

000357 

0180 

C840 

0000 

p 


LDR 

$R4,biTC0U 

00035b 







LOAD R4 K5 (BIT COUNT* PRINT CARD); 

000359 

0182 

03C0 

0000 

p 


LNJ 

5 * JRE 

000.360 





# 


REPORT ERROR? 

000361 





* 


. •END*; 

00036* 


0184 



L38 

EOU 

$ 

000363 


FBCQ 

FE83 


# 


PUT NEW I EXT ( f, URQPPED$" ) * 

000364 

0184 



LAB 

7*0+8 

000365 

0186 

9BC0 

FE99 



Mg 

1*T39 

000366 

0188 

9F87 




1*$B7 

000367 

0189 

03C0 

0000 

p 


LNJ 

5 * VKPNT 

00036b 

018b 

FbCO 

FE7C 



LAB 

7,D+8 

000369 

0180 

E840 

0000 

p 


LDR 

6,BiTCOJ 

000370 

016F 

EF07 




STR 

6 * $B 7 

000371 

0190 

03C0 

0000 

p 


LNJ 

5«VKPD 

00037* 





# 


PUT DECIMAL (BiT COUNT )? 

000373 





# 


•END*? 

000374 


0192 



L37 

EQU 

$ 

000375 


E800 

0006 


* 


•IF* CHECKSUM #6G * GT * SLOW ADDREbS+6@ * AND* J * EG)* 6 

000376 

0192 

X 


LDR 

6,<CH£C<S+6 

000377 

00037b 

0194 

0195 

1CQ6 

E918 

0000 

X 


m 

1*6 

6,#<L0WADD.$R1 

000379 

0197 

0A81 

0025 



bale 

Lb 

000380 







•THEN* 

888111 

0199 

9940 

FE67 


# 

CMR 

•BEGIN* 

1*0+1 

000383 

019 b 

0981 

0021 



BNE 

Lb 

000384 

£218 

0000 



BIT COUNI ;= CHECKSUM §60 - §L0WADDRESS+6§; 

000385 

0190 

X 


SUB 

6 **<LOWADD* $Rl 

000386 

019F 

EF40 

0000 

p 


STR 

6 *BITCOJ 

000387 





* 


LABEL 2 5s * LITERAL* (CG> * 

000388 

01A1 

C870 

4347 



LDR 

4**17223 

000389 

000390 

01 A3 

CF 40 

0000 

p 

* 

STR 

4*LABEL2 

•IF* 2VDITY »EO* 0 

000391 





# 


•THEN* 

000392 





* 


•BEGIN* 

000393 

8i a? 

0840 

0000 

p 


LDR 

5 *ZV$TTY 

000394 

5981 

0007 



BNt* 

5*L41 

000395 

01A9 

0840 

FE5B 



t86 

$R5*D+5 

000396 

oiab 

C840 

0000 

p 


$R4*bIT COU 

000397 

QIAO 

03C0 



* 


LOAD R4 R;? (BIT COUNI* PRINT CARD)? 

000398 

0000 

p 


LNJ 

5 * JRt 

000399 





# 

REPORT ERROR? 

000400 





* 


•end*; 

000401 


01 AF 



L41 

EOU 

$ 

000402 





* 

PUT NEW TEXT ("PJCKEDS")5 

000403 

01AF 

FBCO 

FE58 



LAB 

?*D+b 

000404 

Olbl 

9BC0 

FE73 



LAB 

i*T42 

000405 

01b3 

9P87 




STB 

1 *$B7 

000406 

01b4 

03C0 

0000 

p 


LNJ 

5 *VKPNT 

000407 

01b6 

FBCO 

FE51 



LAB 

7 *D + 8 

000408 

Olbb 

E840 

0000 

p 


LDR 

6 *BIT COJ 

000409 

01 BA 

EF07 




STR 

6 *$B7 

000410 

01BB 

D3C0 

0000 

p 


LNJ 

5 *VKPD 

000411 





* 


PUT DECIMAL (BiT COUNT)5 

000412 





* 


•END*? 

000413 





* 

END OF 

•END*? (OF IF checksum @j§) 

000414 





* 

loop* 

000415 





# 

• 

END*? (OF FOR LOOP ) 

000416 





# 

END OF 

PROCEDURE; 

000417 

OlbU 

8AC0 

FE43 


L8 

INC 

D+l 

00041b 

01BF 

0F81 

FE9A 



B 

L6 

000419 


01C1 



L7 

EOU 

$ 

000420 




4 

LOW 

: ADDRESS wOW ADDRESS + (* 

6 *LOWADD 

000421 

sta 

E840 

0000 

p 


LDR 

000422 

6E07 




ADV 

6,7 

000423 

01C4 

EF40 

0000 

p 


STR 

6 * LOWADO 

ME delay; 

5 * JTD 

000424 





# 

TI 

000425 

01C6 

D3C0 

0000 

p 


LNJ 

000426 





* 

•END*; 

(OF PROCEDURE) 

000427 





* 

•END*; 

(OF SEGMENT) 

000428 





* 

•FINISH* 

000429 

OlCb 

83C8 

FE37 



JMP 

*D 

000430 


01CA 



LI 

EQU 

% 

000431 

01CA 

83CO 

0000 

p 


JMP 

ZK$EX 

000432 






XLQC 

ZKStX 

000433 






CTRL 

LINK ZK$EX 

000434 






XLQC 

VKPT 

000435 






XLQC 

VKPNT 

000436 






XLOC 

VKPD 

000437 






XLOC 

VKGB 

000438 






XLOC 

PUESDO 

000439 






XLOC 

SETTOH 

000440 






XLOC 

LABEL2 

000441 






XLOC 

CARDSR 

000442 






XLOC 

B1TC0U 

000443 






XLOC 

LOWADD 

000444 






XLOC 

TIME1 

000445 






XLOC 

SUM 

000446 






XLOC 

TOTAL 
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G00447 

00044b 

000449 

000450 

000451 

00045^ 

000453 

000454 

000455 

000456 01CC Q02A 
0000 ERR COUNT 
fe^L 


CTRL LINK ZV$TT 


CHECKS 

IUWORU 

JRE 

UIO 

JPN 

JTP 

ASKNEX 

ZVKJCC * ZVKJCC 




( 




TITLE 
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4VKJCS. 

OOOOOi 

000002 

000003 

000004 

000005 

000006 

000007 


ooooob 

000009 

000010 


000011 

ooouu 

000013 


000014 

000015 

000016 

000017 

ooooib 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

00002b 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000036 

000U39 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

00004b 

000049 

000050 

000051 

888853 

000054 

000055 

000056 

000057 

00005b 

000059 

000060 

000061 

000062 

000063 

000064 

000065 

000066 

000067 

888888 

000070 

000071 

000072 

000073 

000074 

000075 

000076 

000077 

000078 

000079 

000080 

000081 

000082 

000083 

000084 

000085 

000086 

000087 

000088 

000089 

000090 

000091 

000092 

000093 

000094 

000095 

000096 

000097 

000098 

000099 

000100 

000101 

000102 

000103 

000104 

000105 


05/19/78 


524E 2044 
4943 4520 
2D4C 494E 


524E 2044 
4943 4520 
4620 4C49 
2400 

5752 4 F 4 E 
5354 4154 


DFCO FFDO 
E807 

EF40 FFCt 
OFCO FFDO 


8740 FFCB 
r BCO FFCD 
96C0 0000 
9F87 

OFOO OOOC 
E840 FFFE 
EF40 FFC5 
03C0 0000 


E2C0 0000 
6047 

E940 FFB8 
0901 006C 

bACO 0000 


C84Q FFB2 

4001 

0989 


E840 FF93 
E270 7FFF 
6A1Q 


03C0 0000 


6001 

0901 0000 
FBCO FF80 
9BC0 0000 
9F87 

OFOO OOOC 
E840 FFFE 
EF40 FF85 
03C0 0000 


E2C0 0000 
6047 

E940 FF77 
0901 FFAC 

BACO FF75 
OFEO 

8AC0 FF73 
0FD6 


1422.9R W 05/19/78 1422.9 

TITLE 2VKJCS,• REV 00* 

XOLF JCS 

XDEF 2VKJCS 

COMM 8 

KESV 11*0 

DC 20 

TEXT * TURN DEVICE ON-LlN* 


•E$* 

21 

♦TURN DEVICE 0FF~L1* 


11666700U0 


•NE$* 

14 

* , WR0N3 STATE** 


<2KC0M+1,2*0011* 


B LI 

»PROCEDURE♦ CHECK STATE <'VALUE* * INTEGER• STATE SHUULU BE)? 
♦BEGIN* 

♦INTEGER* k'l'j; 

STB 5 ,D 

LDR 6 , $B7 

STR 6 ,D+1 

XLOC 2VSER 

STB $B5 »D+5 

K ? » 0 5 

READ STATUS AGAIN? 

CL 0 + 2 

LAB 7 * D + 6 

LAB 1,STATWA 

^j ^ | 7 

INPUT (STATUS aAS,INPUT STATUS WORD goe); 


•IF* • 

* THEN• 


<I DWORD*12 
6 , N l + 1 
6 , D + 7 
5 * J10 

BITS* 61«15@ STATUS WAS *NE* bTATE SHOULD Bt 


6 ,STATWA 
6,7 
6 , 0+1 

L4 

ERROR FLAG ?s ERROR FLAG + 1? 

ERRORF 

•IF* STATE SHOULD BE *tQ* 1 
•THEN* 

4,0+1 

4.1 
>L5 

PUT NEW TEXT ("TURN DEVICE 0N_lINE3»") 

•ELSE* 
t * 0 + 6 
1, T6 
1*SB7 
5 , VKPNT 
>L7 
3> 

PUT NEW TEXT ("TURN DEVICE OFF-LINE*"); 

7,0 + 6 
1, Tb 
1,SB7 

5, VKPNT 
$ 

D + 4 

• FOR* J: sO * STEP * 1 'UNTIL* SPEED /4 *DU* 

6,SPEED 

6.2 
6 , 0+6 
6,0 + 4 
6 , 0+6 

6, >L 11 

• F0?< * 1 ? sO * STEP * l 'UNTIL* *nEX* ( 7 FFF) *DU* 

•BEGIN* 

6,0+3 
6, = 32767 
6, >L 14 

* IF* 

GET BREAK *EU* TRUE 

5 , VKGB 

•THEN* 

•GO TO* ASK NEXT? 

6,1 

ASKNEX 

7 ,D+7 

1,STATWA 
1 ,$B7 

INOUT (STATUS WAS, INPUT STATUS WORD «0@)i 
<IOWORO+12 
6,N2+1 
6,0 + 8 
5, JIO 

•IF* *BITS* ei,15g STATUS WAS •EO* STATE SHOULD BE 
•THEN* 

•GO TO* READ STATUS AGAIN? 

6,STATWA 
6,7 

6 ,D+ i 
L3 

•END* ? 

D + 3 
>Li3 
D+4 
>L10 



TITLE CRMS3 * 

•REV 0* 

,CARDREADER / PUNCH TV (SAF) P/Cge 36 

000106 




* 


k:= k+1 ? 

000107 




*# 

REPORT ERROR ONLY IF WITHOUT CONSOLE - WRONG STATE? 

oooioa 




## 

OR AFTER 5TH MESSAGE 5 

000109 

0093 

6AC0 FF6E 



INC 

0+2 f F, 

000110 




# 


LABEL2 ;= ‘LITERAL* (C5)5 1 h 

QQOill 

0095 

E87Q 4353 



LOR 

6 ,=17235 

oooiiz 

0097 

EF40 0000 

P 


STR 

6 ,LABEL2 

000113 




# 


•IF* K •EQ* 5 

000114 

0099 

C840 FF68 



LOR 

4«D+2 

000115 

0096 

4D05 



CMV 

4,5 

000116 

009C 

0905 



BE 

>L18 

000117 




* 


•OR* ZVOTTY * EQ* 0 

000116 




# 


•THEN* 

000119 




* 


•BEGIN* 

000120 




* 


LOAD R4 R5 ANO REPORT ERkQR (STATUS WAS, 

000121 

009D 

0840 0000 

P 


LOR 

5,zv$tty 

000122 

009F 

5981 FF98 



6 NEZ 

5, L3 

000123 


0QA1 


L18 

EQU 

$ 

000124 

QOAi 

C840 0000 

P 


LOR 

$R4,STATWA 

000125 

00A3 

D840 0000 

P 


LOR 

$R5,STATUS 

000126 

OOA5 

DCCO FF5F 



LOe> 

$65*0+5 

000127 

00A7 

QFCO 0000 

T 


STB 

$65 * + $A 

000126 

00A9 

0380 0000 

X 


LNj 

$65 * <ZV $ER 

000129 

00A6 

0F80 

T 


6 

> + $6 

000130 

OOAC 

OOAC 


$A 

OC 

<$ 

000131 

QUAD 

0000 

X 


oc 

<LA6EL1 

000132 

GOAL 



$6 

ORG 

$ 

000133 




* 


STATUS SHUULO BE)? 

000134 

OOAE 

FBCO FF57 



LAB 

7,0 + 6 

000135 

0060 

9BC0 FF71 



LAB 

1,120 

000136 

0062 

9F87 



STo 

1 ,$67 

000137 

0063 

03C0 0000 

P 


LNJ 

5,VKPT 

000136 




* 


PUT TEXT (", WRONG STATED') ? 

000139 




* 


•GO TO* ASK NEXT 

000140 




* 


•END* 

000141 




# 


•ELSE* 

000142 

0065 

83C0 0000 

P 


JMP 

ASKNEX 

000143 




* 


•GO TO* READ STATUS AGAIN? 

000144 




* 

•END» ; 


000145 

0067 

FBCO FF4E 


L4 

LAB 

f * 0 + 6 

000146 

0069 

96 C0 0000 

P 


lab 

1,ST ATWA 

00014/ 

0066 

9F87 



STB 

1 ,$6 / 

000146 




# 

INOUT 

(STATUS wAS,INPUT STATUS @0^)? (CLEAR ATTENTION BIT) 

000149 




# 

1 END* ? 


000150 

006C 

0F00 OOOC 

X 

N3 

NOP 

<IOWORO+12 

000151 

006E 

E840 FFFE 



LOR 

6 ,N3+ 1 

000152 

ooco 

EF4Q FF46 



STR 

6,0+7 

000153 

OOC2 

03C0 0000 

P 


LNJ 

5, JIO 

000154 




* 

•END*? 

(UP SEGMENT) 

000155 




* 

•FINISH* 


000156 

00C4 

83C8 FF3B 



JMP 

*0 

000157 


00C6 


LI 

EQU 

$ 

000156 

00 C6 

83C0 0000 

P 


JMP 

ZKSEX 

000159 





XLOC 

ZK$EX 

000160 





CTRL LINK 

ZKSEX -v 

000161 





XLOC 

VKPT 

000162 





XLOC 

VKPNT i t 1 

000163 





XLOC 

VKGB N* J 

000164 





XLOC 

STATWA ^ 

000165 





XLOC 

STATUS 

00016o 





XLOC 

LABEL 1 

000167 





XLOC 

LA6EL2 

000166 





XLOC 

SPEED 

000169 





XLOC 

ERRORF 

000170 





XLOC 

ZV$TTY 

000171 





CTRL LINK 

Z V $ T T 

000172 





XLOC 

IOWOKO 

000173 





XLOC 

JIO 

000174 





XLOC 

ASKNEX 

000175 

00 C6 

002 A 



ENO 

ZVKJCS,ZVKJCS 

i ERR COUNT 
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ZVKJtT.LIST 

88888 ^ 

000003 

000004 

000003 0000 

000006 0003 

000007 0006 

000006 0009 

000009 000A 

0000 

000010 

oooon 0013 

0015 

000012 0016 
000013 
000014 
000015 

000016 0016 
000017 001A 

000016 001b 

000019 

000020 0010 
000021 GO 1F 
000022 0020 
000023 
000024 
000025 

000026 0022 
000027 0024 

000026 

000029 0026 

000030 0026 

000031 002A 

000032 0020 

000033 

000034 0020 

000035 002F 

000036 
000037 


000036 

000039 


.00039 0031 

000040 0032 

000041 
000042 
000043 

000044 0034 

000045 0036 

000046 
000047 
000046 

000049 0037 

000050 0036 

000051 

000052 0039 

000053 0036 

000054 

000055 0030 

000056 003F 

000057 0041 

000056 0043 

000059 0045 

000060 0046 

000061 

000062 0046 

000063 004A 

000064 004C 

000065 0040 

000066 
000067 
000066 
000069 
000070 

000071 Q04F 
000072 

000073 0051 

000074 
000075 
000076 
000077 
000076 
000079 
000080 
000081 

000082 0053 

0000 ERR COUNT 
feL 


0016 

0013 

0008 

0000 

0006 

2C20 4154 2024 
0012 

2043 4152 4453 
2050 4552 204D 
494E 5554 4524 
0013 

8F00 0001 
0011 

OF81 003A 


DFCO FFE7 
E807 

EF40 FFE5 

F6C0 FFE5 
EP07 

D3C0 0000 


E840 

6981 

FBCO 
9BC0 
9F 87 
D3C0 

E840 

P84Q 


0000 
002 A 


FFDC 

FFDC 


0000 


0000 

0000 


8257 

F370 003C 


E270 001E 
6800 


8AD7 

6756 


FE40 FFC7 
1-640 0000 


F340 
F F40 
FBCO 

ii W 

03C0 

FBCO 
96C0 
9 F 87 
D3C0 


FFC3 
FFC2 
FFC1 

ffbe 

0000 

FFBA 

FFBE 

0000 


83C8 FFBO 

83^4 0000 


0013 


05/19/78 


£KCOM 
T 5 
T 6 


2VKJET 


JET 


$A 


4 

4 

4 

* 

L4 

Li 


05/19/78 1422.9 

ZVKJET * * REV 00* 

JtT T 
ZVKJET 
8 

5,0 

6 

*, AT $* 

18 

• CARPS PER MINUTES* 


54 )3800u0 


1422.9R 
TITLE 
XPEF 
XPEF 
COMM 
RESV 
PC 

TEXT 
PC 

TEXT 

EUU 
SAvE 

• PROCEDURE* CALCULATE ELAPSEP TIME(’VALUE*•INTEGER* NUMBER OF CARPS); 
♦BEGIN* 

•INTtGER* TIME? 

STB 5,P 

LPR 6.$B7 

STR 6,P+1 

PUT NUMBER (NUMBER OF CARPS); 

7,P+3 


<ZKC0M+1,2*0011* 


STR 

LNJ 


LPR 

BNE2 

PUT 

LAB 
LAB 
STB 
LNJ 


LPR 

LPR 


NEG 

PlV 


SUB 

BL2 


6 • $B7 

5 , JPN 

•IF* ERROR FLAG •NE• 0 
•THEN* 

•GO TO* ENP CPM; 

6, ERRORF 

6 * L4 

EXT (", fcT $”) ; 

7, P+3 
1 * T5 
1 »$B7 
5 »VKPT 

•COPE*’BEGIN* 


$A 


$R6,Ck1eM 
$R7,2HRTCC 
1CB J 

NEG =$K7 
PIV $R7, =60 
= $R7 
SK7 * =60 

luB 1 $R6,c30 
BLZ $R6*> + $A 
$K6 * = 30 
$R6 * > + $A 
JCBJ 

INC =$R7 
CL =SR6 
= $R7 
= $R6 

^pifp+i 

$R7,HERTZ 


CONVERT TO TICKS CQUNTEP THIS TIME 
PIVIPE BY SECONPS/MIN 


CHtCK remainper 
GR tATER THEN 1/2 


THtN INC QU0T1ENI 

UPPER WQRO OP POUBLE PRECISION sO 


PIV $R7,P+1 

STR $R7,P+2 

LAB 7,P+3 

LPR 6 *P+2 

STR 6 *$B7 

LNJ 5,JPN 

PUT NUMBER (TIME); 

LAB 7,P+3 

LAB 1,T6 

STB 1,$B7 

LNJ 5 * VKPT 

PUT TEXT (*• CARPS PER MINUTES”) ; 
ENP CPM: 

•ENP*; 

•ENP*; 

,F JW SH ’ 

EOU 
JMP 
XL PC 


*P 

Iksex 

_ ZKSEX 

CTRL LINK 2KSEX 
XLUC 
XLOC 
XLPC 
XLOC 
XLOC 
XLOC 
ENP 


ZHRTCC 

VKPT 

mikr 

CKSEM 

JPN 

2VKJET « 2VKJET 
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E 2 VKJFB.LIST 
000001 
OOOOOc 
000003 
000004 

Q00003 OOGO 
000006 

000007 0009 

0006 

000008 OOOC 

000009 

OOOUIO 

000011 

oooou 

000013 0000 

000014 000F 

0010 

00001S 0011 

0013 

000016 0014 

000017 
000016 
000019 


000021 

000022 


000026 


000030 

000031 

000032 

000033 

000034 

000033 

000036 

000037 


000039 
000040 

000041 _ 

0000 ERR COUNT 

(Sfel 


OOOD 

0009 

0008 

0000 

0009 

8FOO 0001 
0011 
0F9F 


OFCO FFF2 

8F87 

OFOO 

6F40 FFEF 
OFOO 

6740 FFFO 


TITLE 

2VKJFB * * REV 00* 

xdef 

JFB 

m 

2VKJFB 

8 

RESV 

9*0 

EQU 

$ 

SAVE 

<2KCQM*1*2*0011* 

B, 

>L 1 . T 


03/19/78 1423.OR W 03/19/78 1423.0 


2KC0M 

P 

2VKJFB 


* 

* 

* 

* 

JFb 


L3 

# 

* 


27 f 630000 


•PROCEDURE* FILL BUFFER(*INTEGER• 1 ARRAY * BUFfeRNAME? 

•VALUE* * INTEGER* WQRD$ f VALUE)? 

* BEGIN* 

*INTtGEK * i; 

ST 6 5 f D 

RSTK $B7 *2 * OFOO• 


SAVE 
CL 


D*i*2*0F00* 


•FOR* 

•PD* 


0*5 

I ?*0 






* 

•BEGIN* 

0016 

E840 

FFEC 



LOR 

6*D*3 

0018 

6 EFF 




APV 

6 * -1 

0019 

EF40 

FF EC 



STR 

6 * 0*6 

0016 

E840 

FFE9 


L4 

LPR 

6*0*5 

001 P 

E240 

FFE 8 



SUB 

6 * D* 6 

001 F 

6A0A 




BG2 

6 * >L3 





# 


BUFFERNAME ei*> 

0020 

9840 

FFE4 



LOR 

1*0*5 

0022 

E840 

FF 



LPR 

6*0*4 

0024 

EF18 

0001 



STR 

6**<D*1.$R1 





* 

•END* 

? 





* 

•END* ? 


0026 

8AC0 

FFPE 



INc 

0*5 

0028 

OFF 3 




B 

>L4 





* 

•ENP* 5 

(OF SEGMENT) 

0029 

83C6 

FFP 6 


* 

L3 


*0 


002 B 



LI 

EQU 

$ 

0026 

83C0 

0000 

P 


JMP 

2KSEX 






XLOC 

2KSEX 






CTRL LINK 

2K$tX 

0020 

0009 




ENP 

2VKJFB,2VKJFB 


•STEP* 1 *UNTIL* WORDS-i 


VALUE? 



TITLE CRMS3.*REV G*.CARDREADER / PUNCH TV (SAF) PAGE 39 


E ZVKJFC 

• LIST 



05/19/78 

1423.OR W 05/19/78 1423.0 2646900U0 

000001 





title 

ZVKJFC *•REV 00* 

000002 


0009 



XDEF 

JFC 

000003 


0005 



XDEF 

ZVKJFC 

000004 


0008 


ZKCOM 

COMM 

8 

00000 b 

0000 

0000 


D 

RESV 

5.0 

000006 


0005 


ZVKJFC 

EQu 

$ 

000007 

000 b 

8F00 0001 

k 


SAVE 

<ZKC0M+1,Z*00U* 


0007 

0011 





000006 

0006 

0F9C 



b 

>L1 

000009 




* 

* PROCEDURE* 

CREATE FUNCTION CODES (*VALUt* * INTEGER* CHANNEL) 

000010 




* 

•BEGIN* 


ooooii 




* 

•INTEGER* I? 

000012 

0009 

OFCO FFF 6 


JFC 

STb 

b.D 

000013 

ooob 

E807 



LDR 

6 * $67 

000014 

oooc 

EF40 FFF4 



STR 

6.D+1 

00001 b 

OOOE 

8740 FFF3 


L3 

CL 

D+2 

000016 




* 

• FOR • 

i;=0 •STEP* 1 * UNTIL * 16 * DO* 

000017 




# 

•BEGIN* 

000016 

0010 

E840 FFF1 


L4 

LDR 

6 ,D + 2 

000019 

0012 

6EF0 



ADV 

6 % • 16 

000020 

0013 

6A0F 



BG2 

6 »>L5 

000021 




* 


io wokoeie ;= *bits* e7,o@ io woRD^ie 

000022 

0014 

E840 FFEC 



LDR 

6 *0+1 

000023 

0016 

9840 FFEB 



LDR 

11 D + 2 

000024 

0016 

C810 0000 

X 


LDR 

4 *<1DWORD.$R 1 

00002 b 

001 A 

C570 007F 



AND 

4,=Z*007F* 

000026 

001C 

E454 



OR 

6»s$R4 

000027 

0010 

EF10 0000 

X 


STR 

6*<I0W0RD.$R1 

000026 




# 


•union* channel; 

000029 




* 

•END* ; 


000030 




* 

•END* ; 


000031 

00 IF 

8 ACO FFE2 



INC 

D+2 

00003c 

0021 

OFEF 



6 

>L4 

000033 




* 

•END* ; 

(OF SEGMENT) 

000034 




* 

•FINISH* 


00003b 

0022 

83C8 FFDU 


Lb 

JMP 

*D 

000036 


0024 


LI 

EUU 

$ 

000037 

0024 

83C0 0000 

P 


JMP 

ZKSEX 

000036 





XLJC 

ZK4EX 

000039 





CTRL LINK 

ZK$EX 

000040 





XLUC 

IOWORD 

000041 

0026 

0005 



END 

ZVKJFC * 2VKJFC 

0000 EkR COUNT 

toto 1 
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2VKUGC 

• LIST 




05/19/78 

1423•OR 

W 05/19/78 1422.4 192177Q0U0 

000001 






TITLE 

2VKUGC * * REV 00* 

000002 


0012 




XDEF 

UGC 

000003 


OOOD 




XDEF 

ZVKUGC 

000004 


0008 



ZKCQM 

COMM 

8 

000003 

0000 

0000 



D 

RESV 

13*0 

000006 


OOOD 



ZVKJGC 

EOU 

$ 

000007 

GOOD 

8F00 

0001 

K 


SAVE 

<ZKCQM+1*2*0011* 



OOOF 

0011 






000006 

0010 

0FS1 

0109 



B 

LI 

000009 





* 

•PROCEDURE* GENERATE CHECKSUMS (* VALUE * * INTEGER• RtAp UK PUNCH)5 

000010 





* 

•BEGIN* 


oooou 





* 


•INTEGER* J«IS 

000012 





# 


•INTEGER* COLUMN CHECK? 

000013 





* 


•INTEGER* MASK? 

000014 





* 


•integer* ro* check; 

0000,15 





* 


•integer* temp; 

000016 

0012 

DI-CO 

FFED 


JGC 

STB 

5 ,D 

000017 

0014 

E807 




LDR 

6,$67 

000016 

0015 

EF 40 

FFEB 



STR 

6 ,D+ 1 

000019 





* 


• IF* READ OR PUNCH *NE* 0 

000020 





* 


•THEN* 

000021 







* BLGIN* 

000022 

0017 

6936 




8 E L 

6 , >L3 

000023 





* 


* INTEGER * BYTES? 

000024 





* 


BYTES 171; 

000023 

0018 

C870 

00 A6 



LPR 

4,^171 

000026 

001 A 

CF40 

FFED 



STR 

4,D+8 

000027 





* 


•IF* *61TS* £8,8^ LABEL 1 »Eu* ’LITERAL* (F) 

000026 





* 


•THEN* 

000029 

001 C 

D2C0 

0000 

P 


LLH 

5,LABEL1 

000030 

00 IE 

5D46 




CMV 

5,70 

000031 

001 F 

0984 




BNE 

>L4 

000032 





* 


BYTES ;= 16? 

000033 

0020 

7C10 




LDV 

7,16 

000034 

0021 

F F 4 0 

FFE6 



STR 

7 ,D+8 

000035 


0023 



L4 

EOU 

$ 

000036 





* 


READ STATUS \z FALSE? 

000037 

0023 

6740 

0000 

P 


CL 

READST 

000036 





* 


CHECK STATE (SHOULD BE ON)? 

000039 

0025 

FBCO 

FFE3 



LAB 

7 ,D+9 

000040 

0027 

6C01 




LDV 

6,1 

000041 

0026 

EF07 




STR 

6,$67 

000042 

0029 

D3CQ 

0000 

P 


LNU 

5 ,UCS 

000043 





* 


• IF* * BITS* §i,0§ CARDS REAP *EQ» l 

000044 





* 


•THEN* 

000045 

0020 

E840 

0000 

P 


LDR 

6 tCARDSR 

000046 

0020 

6611 




BEVN 

6 ,>L5 

000047 

002E 

FBCO 

FFDA 



lab 

7 *D+9 

000046 

0030 

9BC0 

0000 

P 


LAB 

1 ,BUFF2 

000049 

0032 

9F87 




STB 

1, $67 

000050 





# 


IOLD (BUFFER2 @0@,KEAD OR PUNCH,BYTES) 

000051 

0033 

A6C0 

FFCD 



LAB 

2 ,D+1 

000052 

0035 

AFCO 

FFD4 



STB 

2 ,D+10 

000053 





# 


♦ELSE* 

000054 

0037 

C840 

FFDO 



LDR 

4 ,D+8 

000055 

0039 

CF40 

FFD1 



STR 

4 *D+11 

000056 

0036 

D3C0 

0000 

P 


LNU 

5,OIL 

000057 

0030 

QF90 




6 

>L3 

000058 

003E 

FBCO 

FFCA 


L5 

LAB 

7,D + 9 

000059 

0040 

9BC0 

0000 

P 


LAB 

1,BUFFI 

000060 

0042 

9F87 




STB 

1,$B7 

000061 

0043 

abco 

FFBD 



lab 

2 ,D+1 

000062 

0045 

AFCO 

FFC4 



STB 

2,D+10 

000063 





* 


IOLD (BUFFER1 £0@,READ OR PUNCH,BYTES)? 

000064 

0047 

E840 

FFCO 



LDR 

6 ,D+8 

000065 

0049 

EF40 

FFC1 



STR 

6 ,D+11 

000066 

0046 

D3CG 

0000 

P 


LNU 

5 ,U1L 

000067 





* 


•END* ; 

000066 





*#; 



000069 





*# 

row checksums; 

000070 





*#; 



000071 


004p 



L3 

EQU 

$ 

000072 





* 


CHECKSUM ese ;=o; 

000073 

0040 

8740 

0005 

P 


CL 

CHECKS+5 

000074 





* 


MASK i; 

000075 

004F 

6C01 




LDV 

6,1 

000076 

0050 

EF40 

FFB4 



STR 

6 ,D+5 

000077 





* 


BIT count ;= o; 

000076 

0052 

8740 

0000 

P 


CL 

BIT COU 

000079 


0054 



L7 

EQU 

$ 

000080 





* 


•FOR* u;= 0 *5TEP* 1 * UNTIL * U 

000081 

0054 

8740 

FFAD 



CL 

d+2 . 

000082 





# 


* PU* 

000083 





# 


•BEGIN* 

000084 

0056 

E840 

FFAB 


L8 

LDR 

6 ,D+2 

000085 

0056 

6EF5 




ADV 

6,-11 

000086 

0059 

6 A01 

003E 



BG2 

6 ,L9 

000087 





# 


row check ;= o; 

000088 

0056 

8740 

FFAA 



CL 

D+6 

000089 

0050 

8740 

FFA5 


L10 

CL 

P+3 

000090 





* 


• FOR* 1» 5 0 •STEP * 1 •UNTIL» NUMBER OF COLUMNS - 1 

000091 





* 


»DO* 

000092 





* 


•BEGIN* 

000093 

005F 

E840 

0000 

P 


LDR 

6 ,NUMBER 

000094 

0061 

6 EFF 




ADV 

6,-1 

000095 

0062 

EF40 

FFA5 



STR 

6 ,Q+8 

000096 

0064 

E840 

FF9E 


Lil 

LDR 

6 ,P+3 

000097 

0066 

E240 

FFA1 



SUB 

6 ,P+8 

000096 

0068 

6A20 




BG2 

6 *>L12 

000099 





* 


•IF* 'BITS* ©1*00 CARPS READ *EQ f 0 

000100 





# 


•THEN* 

000101 

0069 

E840 

0000 

P 


LDR 

6 ,CARP5R 

000 ] 

102 

0066 

6 B8A 




BODD 

6,>L13 

000 ] 

103 





* 


TEMP ;z 6UFFER2 *MAS' 1 MASK 

000104 





* 


•ELSE* 

000 ] 

105 

006C 

C84Q 

FF98 



LDR 

4,P+5 

000 ] 

106 

006 E 

9840 

FF94 



LDR 

1 ,D+3 

000 

107 

0070 

C510 

0000 

X 


AND 

4,<6UFF2*$Ri 

000 ] 

108 

0072 

CF40 

FF94 



STR 

4,P+7 

000 ] 

109 

0074 

0F89 




6 

>L14 

000 ] 

UO 

0075 

E84Q 

FF8F 


L13 

LDR 

6 ,D+5 

000 ] 

HI 

0077 

9840 

FF86 



LDR 

1 ,P+3 
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OOOJ 

tl2 

0079 

£510 

0000 

X 


ANO 

6,<BUFFW$R1 

OOOJ 

L13 

007b 

EF40 

FF86 



STR 

6 ,D*7 

oool 

114 





# 


TEMP {= bUFFEKl §I@ ‘MASK* MASK? 

000] 

L15 





# 


•IF* TEMP *NE• 0 

000] 

L16 


0070 



L14 

EQU 

$ 

000 

L17 





# 


•THEN* 

000] 

lib 





# 


•BEGIN* 

000, 

19 

0070 

E840 

FF89 



LDR 

6»D*7 

000] 

[20 

007F 

6906 




bit. 

6 »>L15 

000] 

L 21 





* 


ROW CHECK ROW CHECK •DIFFER* 1? 

000] 

122 

0080 

8640 

FF85 



L6C 

0*6,2* 0001 * 



0082 

0001 






000123 





# 


BIT COUNT ;= BIT COUNT *1? 

000124 

0083 

8 ACO 

0000 

P 


INC 

BIT COU 

000123 





* 


•end*; 

000126 





# 


•end*; 

000127 

0085 

SACO 

FF70 


LI 5 

INC 

D*3 

00012b 

0087 

OFOD 




6 

>L11 

000129 


0088 



L12 

EQU 

S 

000130 





* 


CHECKSUM e5@ ;s CHECKSUM @5^*2 * ROWCHECK?(SHIFT LEFT) 

000131 

0088 

E800 

0005 

X 


LDR 

6,<CHEC<S* 5 

000132 

008A 

6001 




SOL 

6*1 

000133 

008b 

EA40 

FF7A 



ADD 

6, D*6 

000134 

0080 

EF40 

0005 

p 


STR 

6*CHECKS*5 

000135 

008F 

C840 

FF75 



LDR 

4 ,D*5 

000136 

0091 

4001 




SOL 

4,1 

000137 

0092 

CF40 

FF72 



STR 

4,D*5 

000138 





Ik 


MASK Js MASK *2; (SHIFT LEFT) 

000139 





Ik 


•END*; (END OF J FOR ) 

000140 





**; 



000141 





*# 

COLUMN 

i checksums; 

ooo; 

142 





**; 



ooo! 

143 

0094 

6AC0 

FF60 



INC 

D+2 

000144 

0096 

OF 81 

FF6F 



B 

L8 

000145 


0098 



L9 

EQU 

S 

000146 

0098 

8740 

FF6A 


L16 

CL 

D*3 

000147 





* 


•FUR* I;sO •STEP * 1 •UNTIL* NUMBER OF COLUMNS - 1 

000146 





Ik 


•DO* 

000149 





# 


•BtGIN* 

000150 

009A 

E840 

0000 

p 


LDR 

6,NUMBER 

.000151 

009C 

6EFF 




ADV 

6,-1 

000152 

0090 

EF40 

FF6A 



STR 

6*0*8 

000153 

009F 

E840 

FF63 


L17 

LDR 

6 ,D*3 

000154 

Q0A1 

E240 

FF66 



SUB 

6 * D*8 

000155 

00A3 

6A01 

0030 



6G2 

6,L18 

000156 





# 


•INTEGER* K * TEMP; 

000157 





# 


•IF* *8ITS» 61*06 CARDS READ • EQ* 0 

000156 





* 


•THEN* 

000159 

00A5 

E840 

0000 

p 


LDR 

6 »CARDSR 

000160 

00A7 

6688 




60DD 

6*>L19 

000161 





# 


TEMP ;= BUFFER2 @Ifc 

000162 





* 


•ELSE* 

000163 

00A8 

9840 

FF5A 



LDR 

1 ,D*3 

000164 

OOAA 

C810 

0000 

X 


LDR 

4,<BUFF2.$R1 

000165 

OOAC 

CF40 

FF50 



STR 

4,D*10 

000166 

OOAE 

0F87 




6 

>L20 

000167 


OOAF 



L19 

EQU 

% 

000166 





Ik 


TEMP BUFFER! tfle; 

000169 

OOAF 

9840 

FF53 



LDR 

l ,D*3 

000, 

L 7 0 

OObl 

E810 

0000 

X 


LDR 

6,<6UFF1 * $K1 

000, 

71 

00b3 

EF40 

FF56 



STR 

6,D*10 

000172 


0065 



L20 

EQU 

$ 

000173 





* 


COLUMN CHECK J = ’BITS* ©1,0«* TEMp; 

000174 

0065 

E840 

FF54 



LDR 

6,D*10 

000175 

0067 

E570 

0001 



AND 

6,52*0001* 

000176 

0069 

EF40 

FF4A 



STR 

6, D*4 

000177 


0066 



L21 

EQU 

$ 

000176 





* 


•FOR* J;5Q »STEP• 1 'UNTIL* 10 

000179 

0066 

8740 

FF46 



CL 

D+2 

000180 





* 


•DO* 

000181 
000182 

0060 

E64Q 

FF44 


* 

L22 

LDR 

6;g!! IN ’ 

000183 

OOBF 

6EF6 




ADV 

6,-10 

000184 

OOCO 

6A10 




BG l 

6,>L23 

000185 





# 


TEMP * 5 •BITS* «U*1« TEMp; 

000186 

00C1 

E640 

FF48 



LDR 

6,0*10 

000187 

00C3 

6004 




SOL 

6,4 

000188 

00C4 

6045 




SOR 

6,3 

000189 

0QC5 

EF40 

F F 44 



STR 

6,D+10 

000190 





* 


COLUMN CHECK ?5 COLUMN CHeCK*DIFFER**B iTS*ei,0«TEMP 

000191 

00C7 

E570 

0001 



AND 

6,52*0001* 

000192 

00C9 

E640 

FF3A 



XOR 

6, D*4 

000193 

00C6 

EF40 

FF38 



STR 

6 , D*4 

ooo; 

194 





* 


•END*; 

ooo; 

195 

OOCO 

SACO 

FF34 



INC 

D*2 

000196 

OOCF 

OFEE 




B 

>L 22 

000197 


OODO 



L23 

EQU 

$ 

ooo; 

L98 





* 


K J5 1/16? (FIND CORRECT CHECKWORD) 

ooo; 

L99 

0000 

E840 

FF 32 



LDR 

6 ,D*3 

000200 

0002 

6064 




SAR 

6,4 

000201 

0003 

EF40 

FF35 



STR 

6, D*9 

000202 

0005 

9856 




LDR 

1,5$R6 

000203 

0006 

C810 

0000 

X 


LDR 

4,<CHEC<S.$Ri 

000204 

0008 

4001 




SOL 

4,1 

000205 

0009 

CA40 

FF2A 



ADD 

4 , D*4 

000206 

0006 

CF10 

0000 

X 


STR 

4,<CHEC<S.SRi 

000207 





# 


CHECKSUM QKe J 5 CHECKSUM @Ke *2 ♦ COLUMN CHECK; 

000208 





* 


•END*; 

000209 

0000 

8AC0 

FF25 



INC 

D*3 

000210 

OODF 

0F81 

FFBF 



B 

Ll 7 

000211 





# 


• IP* i * EQ» 40 

000212 


00E1 



L18 

EQU 

$ 

000213 





* 


•THEN* 

000214 

00E1 

E840 

FF2 1 



LDR 

6,0*3 

000215 

00E3 

6028 




CMV 

6,40 

000216 

00E4 

0986 




BNE 

>L24 

000217 





# 


CHECKSUM @2G ;= CHECKSUM @2e *256*, (SHIFT LEF 1 8 PLACES) 

000216 

00E5 

C800 

0002 

X 


LDR 

4,<CHEUS*2 

000219 

00E7 

4008 




SOL 

4,8 

000220 

00E6 

CF40 

0002 

p 


STR 

4,CHECKS*2 

000221 


OOEA 



L24 

EQU 

S 

000222 





# 


CHECKSUMS * • BIT COUNT,* 

000223 

OOEA 

E840 

0000 

p 


LDR 

6,61T COU 
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000224 

OOEC 

EF40 

0006 

P 


STR 

6 *CHECKS+6 

00022 $ 





# 

• 

IF* R OR V MOPE *EQ 

000226 

OOEE 

C840 

0000 

P 


LDR 

4 *RORVMQ 

000227 

OOFO 

4D52 




CMv 

4*82 

000226 

OOFi 

0906 




bt 

>L25 

000229 





# 

•OR* RESPONSE *EU' »i 

000230 





# 

• 

THEN* 

000231 





# 

•BEGIN* 

000232 

00F2 

D840 

0000 

P 


LOR 

$ • RESPON 

000233 

Q0F4 

0970 

AAAA 



CNR 

5*5-21846 

000234 

00 F6 

0992 




BNt 

>L26 

00023$ 


OOF 7 



L25 

EQU 

$ 

000236 





* 


•INTEGER* K? 

000237 


OOF 7 



L27 

EQU 

S 

000236 





* 


'FOR' K «3 0 *: 

000239 

OOF 7 

8740 

FF 10 



CL 

0*6 

000240 





* 


*00* 

000241 





* 


•BEGIN' 

000242 

00F9 

E840 

FFOE 


L26 

LDR 

6,0 + 8 

000243 

OOFB 

6 EFA 




ADV 

6,-6 

000244 

OOFC 

6A0C 




BG Z 

6 , >L26 

00024$ 





* 


@LJW ADDI 

000246 

OOFD 

9840 

F FQA 



LOR 

1 iD*8 

000247 

OOFF 

E810 

0000 

X 


LOR 

6*<CHECCS.$R1 

000246 

0101 

EF46 

0000 

P 


STR 

6 * *LOWADD 

000249 





# 


LOW ADDRI 

000250 

0103 

6 AC0 

0000 

P 


INC 

LOWAOP 

000251 





* 


•END'; 

000252 

010 $ 

8AC0 

FF02 



INC 

0 + 8 

000253 

0107 

0FF2 




B 

>L28 

000254 





# 

•END'; 

00025$ 


0108 



L26 

EQU 

$ 

000256 





* 

HAVE GENERATED CHECK: 

000257 

0 X06 

6C01 




LOV 

6*1 

000256 

0X09 

EF40 

0000 

P 


STR 

6 *HAVEGE 

000259 

010 b 

FBCO 

FEFC 



LAB 

7,0 + 8 

000260 

010P 

9BC0 

0000 

P 


lab 

1*STATWA 

000261 

010F 

9F 87 




ST b 

1 * SB 1 

000262 





* 

INPUT (STATUS wAS, II 

000263 





* 

•ENO*» 


000264 

0 X10 

OF 00 

oooc 

X 

N1 

NOP 

<IOWORO+12 

00026$ 

0112 

C840 

FFFE 



LOR 

4,N1♦ 1 

000266 

0114 

CF 40 

FEF4 



STR 

410 + 9 

000267 

0116 

03C0 

0000 

p 


LNU 

5 * JIO 

000266 





# 

•END* ? 


000269 





* 

•FINISH* 

000270 

0116 

83C8 

FEE 7 



JMP 

*D 

000271 


011 A 



LI 

EQU 

$ 

000272 

011 A 

83C0 

0000 

P 


JNP 

ZKSEX 

000273 






XLOC 

ZKSEX 

000274 






CTRL 

LINK ZKSEX 

00027$ 






XLOC 

ST ATWA 

000276 






XLOC 

REAOST 

000277 






XLOC 

NUMBER 

000276 






XLOC 

LABELl 

000279 






XLUC 

CAROSR 

000280 






XLOC 

BITCOU 

000281 






XLOC 

LOWAOP 

000282 






XLOC 

RORVMO 

000283 






XLOC 

HAVEGE 

000284 






XLOC 

RESPON 

00028$ 






XLOC 

CHECKS 

000286 






XLOC 

BUFFI 

000287 






XLOC 

BUFF2 

000286 






XLOC 

IOWORD 

000289 






XLOC 

JIO 

000290 






XLOC 

OIL 

000291 






XLOC 

JCS 

000292 

one 

0000 




END 

ZVKJGC * 2VKJGC 


0 * STEP* 1 'UNTIL* 6 


CHECKSUM @Kg; 


(WAIT TIL PONE) 



TITLE 


CRMS3 , • Kb V G* ,CAKPREAOER / PUNCH TV (SAP) 
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E ZVKJIO,LIST 05/19/78 1423.1R W 05/19/78 1423.1 555/50000 


000001 







TITLE 

ZVKJIU, *REV 00* 


000002 


001A 





XPEF 

J10 


000003 


0015 





XPtF 

ZVKJIO 


000004 


0006 




ZKCOM 

COMF1 

8 


000005 

0000 

0000 




0 

RESV 

8*0 


000006 

0008 

0016 




no 

PC 

24 


000007 

0009 

2C20 

494F 

2049 



TEXT 

•* 10 INSTRUCTION N* 



oooc 

4E53 

5452 

5543 







5449 

4F4E 

204E 






000006 

0012 

414B 

2744 

2024 



TEXT 

•AK* *D S* 


000009 


0015 




ZVKJIO 

EGG 

$ 


000010 

0015 

8F00 

0001 


K 


SAVE 

<ZKCOM+I*Z*0011* 



0017 

0011 







oooon 

0016 

0F81 

0041 




b 

LI 


oooou 






* 

•procedure* 

INOUT ( *LOCATION• UNIEGER* XtY) 5 


000013 






# 

•BEGIN* 



000014 






* 

•INTEGER* l,J? 


000015 

001A 

DFCO 

FFE5 



JIG 

ST b 

5 * P 


000016 

001C 

8C8 7 





LPi 

$B7 


000017 

0010 

8040 

FFE3 




SDl 

0*1 


000016 






# 

LADEL2 : = * LITERAL• (IN)5 


000019 

001F 

C870 

494b 




LPR 

4,=18766 


000020 

0021 

CF40 

0000 


P 


SIR 

4*LABEL2 


000021 

0023 

6C01 




L3 

LPV 

6 * 1 


000022 

0024 

EF40 

F PDF 




STR 

6 * P + 4 


000023 






* 

•FOR* 

j; = l *SIEP» I ’UNTIL* SPEED / 4 

*00* 

000024 

0026 

C840 

0000 


P 


LPR 

4,SPEED 


000025 

0026 

4062 





SAR 

4,2 


000026 

0029 

CF40 

FFOb 




STR 

4,P + 5 


000027 

002b 

E640 

FFD 8 



L4 

LPR 

6 * D + 4 


00002b 

0020 

E240 

FF 07 




SUB 

6,P+5 


000029 

002 F 

6A01 

0018 




6G2 

6 * L5 


000030 


0031 




L6 

EGO 

$ 


000031 






# 

•FOR* 

I; = 1 *STEP* 1 ’UNTIL* * HEX• (7FFF) 


000032 

000033 

0031 

0032 

m 

FFPO 




m 

6,1 

6,P + 3 


000034 






* 

• DO* 

•COMMENT* INITIALIZE LOOP? 


000035 






* 

•BEGIN* 


000036 

0034 

E840 

FFCE 



L7 

LPR 

6,P + 3 


000037 

0036 

E270 

7FFF 




SUB 

6, = 32767 


000036 

0038 

6A01 

000b 




BG2 

6,L8 


000039 






* 


•CUPE* *BEGIN*J 


000040 

003A 

8048 

FFC6 




10 

*P+I,*P + 2 



003C 

0048 

FFC5 







000041 

003E 

0701 

0019 




BIOT 

,L9 


000042 






* 

» end* 

? 


000043 

0040 

8AC0 

FFC2 




INC 

P+3 


000044 

0042 

0F61 

FFF1 




B 

L7 


000045 

0044 

8AC0 

FFBF 



L8 

INC 

P + 4 


000046 

0046 

OF 81 

FFE4 




b 

L4 


000047 


0048 




L5 

EGU 

S 


000046 






# 

•COPE*•BEGIN*J 

ROUTINE 

000049 






* 


STB $B5, + S»A AUDREYS OF CALLING 

000050 






* 


LNJ $B5,<ZV$ER REPORT ERROR 


000051 

0048 

OF CO 

0000 


T 


STo 

$B5,+$A 


000052 

004 A 

0380 

0000 


X 


LNj 

$B5, <2 VSbER 


000053 






* 


1CB1 


000054 






* 


XLOC ZVSEK 


000055 






# 


B > + $B 


000056 







XLOC 

ZVSER 


000057 

004C 

OF 80 



T 


B 

> + SB 


000058 






* 


JCB! 


000059 






* 

SA 

PC <s 


000060 

0040 

0040 




$A 

PC 

<$ 


000061 

004E 


0000 


X 


PC 

<labeli 


000062 






* 


)cb j 


000063 






* 

SB 

ORG $J 


000064 

00 4 F 





$b 

ORG 

$ 


000065 






* 

PUT 

TEXT (*•+ 10 INSTRUCTION NAK’P $")? 


000066 

004F 

FB CO 

FFB6 




LAo 

7,P+5 


000067 

0051 

9BC0 

FF66 




LAb 

1 , T 10 


000066 

0053 

9F87 





STB 

1 ,$B7 


000069 

0054 

03C0 

0000 


P 


LNj 

5 , VKPT 


000070 






# 

•GO TO* FRE5H START? 


000071 

0056 

83C0 

0000 


P 


JMP 

^ FRESHS 


000072 






* 

NEXT? * END * 

? 


000073 






# 

•END* ? 

(OF SEGMENT) 


000U74 






* 

•FINISH* 



000075 

0058 

83C8 

FFA7 



L9 

JMP 

*P 


000076 


005A 




LI 

EQU 

$ 


000077 

005A 

83C0 

0000 


P 


JMP 

ZKSEX 


000078 







XLOC 

ZKSEX 


000079 







CTRL LINK 

ZKSEX 


000080 







XLOC 

VKPT 


000081 







XLOC 

LABEL1 


000082 







XLOC 

LABEL2 


000083 







XLOC 

SPEEP 


000084 







XLOC 

FRESHS 


000085 

005C 

0015 





END 

ZVKJIO,ZVKJIO 


0000 ERR COUNT 

L 










C 



TITLE 


CRMS3 * * REV G**CARDREADER / PUNCH TV (SAF) 


PACE 44 


ZVKJIL 

• LIST 





05/19/78 

1423.1R W 05/19/78 1423.1 618390000 

000001 







TITLE 

ZVKJIL* * REV 00* 

oooooa 


0016 





XOtF 

JIL 

000003 


0011 





XPEF 

ZVKJIL 

000004 


0008 




ZICCOK 

COMM 

8 

000003 

0000 

0000 




P 

RESV 

9*0 

000006 

0009 

OOOP 




T7 

DC 

13 

000007 

OOOA 

2C20 

494F 

4C44 



TEXT 

•* IQLD NAK * * D$* 


OOOP 

204E 

414B 

2744 







2400 







000006 


0011 




ZVKJIL 

EQU 

$ 

000Q09 

0011 

8F00 

0001 


K 


SAVE 

<ZKCOM+1*2*0011* 


0013 

QOU 







000010 

0014 

0F81 

0047 




B 

LI 

000011 






* 

* PROCEDURE * 

IQLD (’LOCATION* ’INTEGER* Z*Y*’VALUE 1 •INTEGER* X)? 

000012 






* 

*BEGIN* 


000013 






* 

•INTEGER* IS 

000014 

0016 

Df-CO 

FFE9 



OIL 

STB 

5 * P 

000013 

0018 

8F87 





RSTR 

SB7 *2*0700* 


0019 

0700 







000016 

001A 

8F40 

FFE6 




SAVE 

D+1*2 * 0700• 


001C 

0700 







000017 






# 

LABEL2 ;= •LITERAL* CIO)? 

000016 

001P 

C870 

494F 




LDR 

4,518767 

ooooiy 

001F 

CF40 

0000 


P 


STR 

4 *LABtL2 

000020 

0021 

6C01 




L3 

LDV 

6*1 

000021 

0022 

EF40 

FFEl 




STR 

6 * D+4 

000022 






# 

• FOR* 

I; = 1 •ST EP * 1 ’UNTIL* *HEX*(7FFF) *D0* 

000023 






* 

•BEGIN* 

000024 

0024 

E840 

FFPF 



L4 

LDR 

6 * D + 4 

000023 

0026 

t270 

7FFF 




SUB 

6,532767 

000026 

0026 

6A01 

OOOP 




BG2 

6 * L5 

000027 






* 


•CUPt*’BEGIN*] 

000026 

002 A 

81C8 

FFP6 




I OLD 

*D+l**D+2*D+3 


002C 

0048 

FFP3 







002E 

0040 

FFD4 






000029 

0030 

0701 

0015 




BIOT 

# L6 

000030 






* 

• END» 

? 

000031 

0032 

8AC0 

FFD1 




INC 

P + 4 

000032 

0034 

OF 81 

FFEF 




B 

L4 

000033 


0036 




L5 

EQU 

S 

000034 






* 

•CODE*’BEGIN* } 

000033 






* 


STB SB5 * + SA ADDRESS OF CALLING ROUTINE 

000036 






* 


LNJ SB5 * <2VSER REPORT ERROR 

000037 

0036 

PFCO 

0000 


T 


ST 6 

SB5 * + $A 

000036 

0036 

D380 

0000 


X 


LNj 

SB5 *<2VSER 

000039 








JCBJ 

000040 






# 


XLOC 2VSER 

000041 






* 


B > + SB 

000042 







XLDC 

2VSER 

000043 

003 A 

0F80 



T 


B 

> + $B 

000044 






* 


JCBJ 

000043 






* 

$A 

PC <S 

000046 

0036 

003B 




$A 

DC 

<$ 

000047 

003C 


0000 


X 


PC 

<LABEL1 

000046 






* 


JCBJ 

000049 






* 

SB 

ORG SJ 

000030 

003P 






ORG 

S 

000051 

0030 

FBCO 

FFC7 




LAB 

7 *D + 5 

000052 

00 3 F 

9BC0 

FFC9 




LAd 

1*T7 

000053 

0041 

9F87 





ST 6 

1*$B7 

000054 

0042 

Q3C0 

0000 


P 


LNJ 

5 ♦ VKPT 

000053 






* 

PUT TEXT ("* IOLD NAK*D$") 5 

000056 






* 

•GO TO* ASK NEXT? 

000057 






# 

next; 


000056 

0044 

83C0 

0000 


P 


JMP 

ASKNEX 

000059 


0046 




L6 

EQU 

$ 

000060 






# 

•IF* READ STATUS * EQ* TRUE 

000061 






* 

•THEN* 


000062 

0046 

E840 

0000 


P 


LDR 

6,REAPST 

000063 

0048 

6001 





CMv 

6*1 

000064 

0049 

098E 





BNt 

>L9 

000065 

004A 

FBCO 

FFBA 




LAB 

7* P+5 

000066 

004C 

96C0 

0000 


P 


LAB 

1 * STATWA 

000067 

004E 

9F67 





STB 

1 * $B7 

000066 






* 

INPUT 

(STATOS WAS,INPUT STAIUS WORD @0@); 

000069 

004F 

OF 00 

OOOC 


X 

N1 

NOP 

<1OWORP+12 

000070 

0051 

C840 

FFFE 




LDR 

4 , Ni + 1 

000071 

0053 

CF40 

FFB2 




STR 

4,P + 6 

000072 

0055 

P3C0 

0000 


p 


LNj 

5 * J10 

000073 


0037 




L9 

EQU 

$ 

000074 






* 

READ STATUS Js TRUE? 

000075 






* 

•END* ; 


000076 

005 7 

6C01 





LDV 

6*1 

000077 

0058 

EF40 

0000 


p 


STR 

6,REAPST 

000076 






# 

•END*; 

(OF SEGMENT) 

000079 






* 

•FINISH* 


000080 

003 A 

83C8 

FFA5 




JMP 

*D 

000081 


005C 




LI 

EGO 

S 

000082 

005C 

83C0 

0000 


p 


JMP 

2KSEX 

000083 







XLQC 

2KSEX 

000084 







CTRL LINK 

ZKSEX 

000085 







XLQC 

VKPT 

000086 







XLOC 

ST ATWA 

000087 







XLOC 

REAPST 

000088 







XLQC 

labeli 

000089 







XLQC 

LABEL2 

000090 







XLQC 

1DWORD 

000091 







XLQC 

J10 

000092 







XLQC 

ASKNEX 

000093 

005E 

0011 





END 

ZVKJ1L * 2VK JIL 

0000 ERR COUNT 

L 










v..y 



V.. V 



T I Tut 


CRMS3**REV G* * CARDREADER / PUNCH TV (SAP) 


PACE 45 


OOOOOi 

000002 

000003 

000004 

000005 

000006 

000007 

000008 


000011 


00001 * 

000013 


000014 

000015 


000016 


000017 

000016 


00001 ^ 

000021 


000021 

000022 


000023 

000024 

000025 

000026 

000027 

000028 

000029 

000030 

000031 

000032 

000033 

000034 

000036 

000036 

000037 

000036 

000039 

000040 

000041 

000042 

000043 

000044 

000046 

000046 

000047 

000046 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 

000058 

000059 

000060 

000061 

000062 

000063 

000064 

000065 

000066 

000067 

000066 

000069 

000070 

000071 

000072 

000073 

000074 

000075 

000076 

00007? 

000078 

000079 

000080 

000081 

000082 

000083 

000084 

000085 

000086 

000087 

000088 

000089 

000090 

000091 

000092 

000093 

000094 

000095 

000096 

000097 


LIST 




05/19/78 

1423*1R W 

05/19/f8 1422*2 






TITLE 

ZVKJ1R * * REV 00* 
TIMER 


0064 




XDtF 


0081 




XDEF 

XDtF 

CPRUPT 


0092 




DEV 1H 


004F 




XDEF 

LEV20 


005A 




XDEF 

LEV21 


0048 




XDEF 

ZVKJ1K 


0008 



ZKCOM 

COMM 

8 

0000 

0000 



D 

RESV 

6*0 

0006 

OOOE 



T 4 

DC 

14 

0007 

2C20 

5354 

5543 


TEXT 

•, STUC< AT 20$• 

OOOA 

4B20 

3024 

4154 

2032 




UOOE 

0011 



T7 

DC 

17 

GOOF 

2C20 

4350 

2052 


TEXT 

•* CP RoPT DEVICES* 

0012 

5550 

5420 

4445 




5649 

4345 

2400 




0018 

0022 



T 10 

DC 

34 

0019 

2C20 

4E4F 

5420 


TEXT 

*, NUT READER OK PU 1 

001C 

5245 

4144 

4552 





204F 

5220 

5055 




0022 

4E43 

4820 

5448 


TEXT 

•NCH THAT RUPTEDS* 

0025 

4154 

2052 

5550 





5445 

4424 





002 A 

0011 



T13 

DC 

17 

002B 

2 C20 

4953 

4120 


TEXT 

* , ISA SREG WRONGS* 

002E 

5352 

4547 

2057 




524F 

4E47 

2400 




0034 

OOOE 



T 23 

DC 

14 

0035 

2 C20 

464C 

4147 


TEXT 

•* FLAG NOT 0N$• 

0038 

204E 

4F54 

2Q4P 




2312730000 


4E24 


003C 

0015 



T26 

DC 

21 

003D 

2C20 

4t4F 

5420 


TEXT 

•* NOT DEV OR CP FL 

0040 

4445 

5620 

4F52 





2043 

5020 

464C 




0046 

4147 

2400 



TEXT 

•AGS* 


0048 



ZVKUIR 

EQU 

$ 

0048 

8 F0G 

0001 

K 


SAVE 

<ZKCOM+l,2*0011’ 

004A 

0011 







004B 

0040 

6840 

EF40 

0000 

0000 


004F 


004F 

0051 

8 AC0 

0005 

0000 

0052 

0054 

E870 

EF40 

803F 

0000 

0056 

8E40 

0000 

0058 

8 3 CO 

FFF6 


005A 


005A 

005C 

005E 

8AC0 

E870 

EF40 

0000 
803 F 
0000 

0060 

8E40 

0000 

0062 

83C0 

0064 

FFF 7 

0064 

0066 

E870 

EF40 

4349 

0000 

0068 

9FC0 

0000 

006A 

006C 

9B80 

9FC0 

0000 

0005 

006E 

0070 

0072 

9CC0 

E870 

EF40 

0000 
80 3 F 
0000 

0074 

0076 

8E40 

D3C0 

0000 

0000 

0078 

007A 

007C 

007D 

FBCO 

9BC0 

9F87 

D3C0 

FF8A 

FF8B 

0000 


* INTEGER• TEMP*I * PROGRAM LtVtL; 


ZH1AFB 2H1AFB5 


* 

* 

**’clock handler; 

*#; 

* LEV2G; 

LDR _ 

6 ,ZHW _ 

** REMEMBER THAT THE CLOCK PORTED; 


(FORCt XLOC) 


LEV20 

* 


i; 


_ 6*ZHIAF3 

STR 6 *ZHI Ar 3 

“TAT THE CLOr ' " 

EQU $ 

CLOCK SEMAPHORE CLOCKSEMApHORt ♦ 

INC CKSEM 

DC 5 

* CLOCK OFF J 

LDR 6 *5-32706 

SIR 6*LEVTYP 

* LEV ( * HEX * (8000) ,63)'* (SCHEDULE LEVEL* SUSPEND, SCAN AND DISPATCH) 

LEV LEVTYP 

* ^ •GO TO* LEV20* 

**’dEvIcE INTERRUPT HANDLER - L21 HANDLER* 

**; 

* LEV21; 

JMP LEV20 

** REMEMBER THAT YOU’VE BEEN HERE* 


LEV21 
* 


* 

**; 


EQU $ 

L21 SEMAPHORE ;= L21 SEMAPHORE 
INC L21SEM 

LDR 6*=-32705 

STR 6 *LEVTYP 

LEV (* HEX * (8000)*63)? 

LEV LEVTYP 

•GO TO* LEV215 


♦ IS 


** CALIBRATION TIMER INTERRUPT handler* 
**; 

* TIMER; 

LABtLZ ;= ’LITERAL* (Cl); 
LDR 6*s17225 

STR 6 *LABEL2 

•CODE* *-BEGlN»^ 


TIMER 

4 


XLOC ST OPT I,RUPT1 
STOPTI,PUPTI 
$B1 * T EMPCH 
1CB J 

LAB $B1,<STOPTI 
$B1*<ST0PTI 
SB1 * ISAP+4+SAF 
JCB J 

LDB $B1*]TEMP CHARACTER 
$B1 * TEMPCH 
6,5-32706 
6 ,LEVTYP 

LEV (•HEX» (8000)*63)? (GO BACK TO PROGRAM LtVEL) 
LEVTYP 
5, JRE 

REPORT ERRORS (STUCK AT cEVEL 20) 

LAB 7,D*3 

LAB 1 * T4 

STB 1*$B7 

LNJ 5 * VKPT 

PUT TEXT ("* STUCK AT 20S"), 

•GO TO* FRESH START; 


XLOC 

STB 


LAB 

STB 


LDB 

LDR 

STR 

LEV 

LNu 


007F 


83C0 0000 
0081 


* 

* 

**; 

** t lF CP SHOULD RUPT DEVICE;; 

**’ CP Rupt; 

JMP FKESHS 

CPRUPT EQU $ 

* LABEL2 ;s *HTERAL* (CP) ; 




TITLE 

CRMS3* 

•REV 6* 

*CARDREADER 

/ PUNCH TV (SAP) PACE 46 


000098 

0081 

E870 

4350 



LDR 

6*517232 


000099 

0083 

EF40 

0000 

P 


STR 

6 *LABEL2 


000100 

0085 

D3C0 

0000 

P 


LNJ 

5 * JRE 


oqoioi 





* 


REPORT ERROR; 


Q0QIQ2 

0087 

FBCO 

FF7B 



LAB 

7*0+3 


000103 

0069 

9BC0 

FF84 



LAB 

1 * T7 

f r, 

000104 

0086 

9F87 




STB 

1 *$67 


000105 

008C 

03C0 

0000 

P 


LNJ 

5 *VKPT 


000106 







PUT TEXT (", CP RUPT DEV ICE*")? 


000107 





* 


•00 TQ» FRESH START; 


000108 

0G8E 

83C0 

0000 

P 


JMP 

FRESHS 


000109 





* 


•GO TO • CP rjpt; 


ooono 





** s 


• 


000111 





** <30 HERE AMU 

' CHECK RUPT CONDITIONS? 


00011* 





#* ; 




000113 





* 

DEVICE 

HANDLER; 


000114 

0090 

83C0 

FFFO 



JMP 

CPRUPT 


000115 





** RESET 

RETURN LOCATION - AVOID RETURN TO ODEC? 


000116 

0092 

9840 

0000 

P 

QEViH 

LDR 

1*ZV$AF 


000117 

0094 

1E04 




ADV 

1*4 


000118 

0095 

A840 

0000 

P 


LDR 

2»*V$AF 


000119 

0097 

2E04 




ADV 

2*4 


000120 





* 


ISA FOR PROGRAM @ZVDAF+4@ ;s 1SA FOR PROGRAM eZVDAP+4@*25 


000121 

0098 

E820 

0000 

X 


LDR 

6 * <I SAP* $R2 


000122 

009A 

6E02 




ADV 

6*2 


000123 

0096 

EF 10 

0000 

X 


STR 

6*<1SAP.$R1 


000124 





# 


DEVICE SEMAPHORE ;= DEVICE SEMAPHORE + i; (REMEMBER WAS HERE) 


000125 

0090 

8AC0 

0000 

P 


INC 

DVSEM 


000126 





* 


TEMP ?5 CHANNEL ’UNION* DEVICE LEVcL * 


000127 

009 F 

E840 

0000 

P 


LDR 

6 *CHANNt 


00012b 

00A1 

E440 

0000 

P 


OR 

6 * DLVL 


000129 

00A3 

EF40 

FF5C 



STR 

6 * D 


000130 





# 


•IF* ISARD * MASK • *HEX* (FFBF) *NE* TEMP 


000131 





* 


•THEN* 


000132 





* 


•BEGIN* 


000133 

00A5 

C800 

0002 

X 


LDR 

4 ♦ <ISAD + 2 


000134 

00A7 

C570 

FFBF 



AND 

4 * 5-65 


000135 

00A9 

C956 




CMR 

4 * = SR6 


000136 

OOAA 

0901 

0014 



BE 

L9 


000137 







•integer* dev; 


00013b 





* 


LABEL2 ’LITERAL ’ (Wp); 


000139 

OOAC 

C870 

5744 



LDR 

4,^22340 


000140 

OUAE 

CF40 

0000 

p 


STR 

4*LABEL2 


000141 

QQBQ 

0840 

FF4F 



LDR 

$R5*D 


000142 

006* 

C840 

FF50 



LDR 

$R4 * D+3 


000143 

0064 

03C0 

0000 

p 


LNJ 

5 ♦ JRE 


000144 





* 


REPORT ERROR; 


000145 





* 


PUT TEXT ("* NOT READER OR PUNCH THAT RUPTED$*’)5 


000146 

0066 

FBCO 

FF4D 



lab 

7 * D+4 


000147 

0068 

9BC0 

FF5F 



LAB 

1 *T 10 


00014b 

006A 

9F87 




STB 

1 * $B7 


000149 

0066 

03C0 

0000 

p 


LNJ 

5 * VKPT 


000150 





* 


•GO TO* FRESH START ; 


000151 

0060 

83C0 

0000 

p 


JMP 

FRESHS 


000152 





# 


• end*; 


000153 


OOBF 



L9 

EOU 

S 


000154 





* 


•CODE*’BEGIN*] 


000155 





* 


STS =SR7 


000156 





# 


STR $R7 • JTEMP 


000157 

OQBP 

8C57 




STS 

= $R7 


000156 

OOCO 

FF4Q 

FF3 F 



STR 

SR7 ,D 


000159 







•IF* TEMP ’MASK* *HEX»(63FF) * NE* SREG «MASK» *HEX*(63FF) ’UNION* 


000160 





* 


DEVICE LEVEL 


000161 

OOC* 

E840 

FF30 



LDR 

6 * D 


00016* 

OOC4 

E570 

63FF 



AND 

6*525599 


000163 





* 


•THEN’ 


000164 





* 


•BEGIN* 


000165 

00C6 

C840 

0000 

p 


LDR 

4,SREG 


000166 

00C8 

C570 

63 FF 



AND 

4, = 25599 


000167 

OOCA 

C440 

0000 

p 


OR 

4 *DLVL 


00016b 

OOCC 

E954 




CMR 

6 * 5$R4 


000169 

OOCO 

0901 

0014 



BE 

L12 


000170 





# 


LA6EL2 ;= iLITERAL* (SR); 


000171 

OOCF 

E870 

5352 



LDR 

6,-21330 


00017* 

0001 

EF40 

0000 

p 


STR 

6 *LABEL2 


000173 

0003 

0840 

0000 

p 


LDR 

$R5*DLVw 


000174 

0005 

C840 

0000 

p 


LDR 

$K4 *SRES 


000175 





* 


LOAD R4 R5 (SREG* DEVICt LEVtL)5 


000176 

0007 

03C0 

0000 

p 


LNJ 

5 ♦ JRE 


000177 





# 


REPORT ERROR? 


00017b 

0009 

FBCO 

FF29 



LAB 

7 *0+3 


000179 

0006 

9BC0 

FF4E 



LAB 

1 * T 13 


000180 

0000 

9F87 




STa 

l * SB 7 


000181 

OODL 

03C0 

0000 

p 


LNJ 

5 « VKPT 


000182 





* 


PUT TEXT ("* ISA SREG WRONGS” )* 


000183 





* 


•GO TO* FRESH START* 


000184 

OOEO 

83C0 

0000 

p 


JMP 

FRESHS 


000185 





* 


• eno* ; 


000186 


00E2 



L12 

EOU 

$ 


000187 





# 


•IF* CP LEVEL • LE • DEVICE LEVEL 


000188 





* 


• THEN* 


000189 





* 


PROGRAM LEVEL ;s 63 


000190 

OOE* 

E840 

0000 

p 


LDR 

6,CPLEVE 


000191 

00E4 

E940 

0000 

p 


CMR 

6 * DLVL 


000192 

00E6 

0A05 




BAG 

>L14 


000193 





* 


» ELSL* 


000194 

00E7 

4C3F 




LDV 

4,63 


000195 

00E8 

CF40 

FF 19 



STR 

4,D + 2 


000196 

OOEA 

0F85 




B 

>L15 


000197 


OOEB 



L14 

EUU 

$ 


000198 





# 


PROGRAM LEVEL CP LtVEL * 


000199 

00E6 

E840 

0000 

p 


LDR 

6 ,CPLEVt 


000*00 

OOEO 

EF40 

FF 14 



STR 

6*0+2 


000*01 


OOEF 



L15 

EUU 

$ 


000*02 


OOEF 



L16 

EQU 

$ 


000*03 





# 


•FOR* I ; =0 ’STEP* 1 ’UNTIL* 63 


000*04 • 

OOEF 

8740 

FF 11 



CL 

D+l 


000205 





* 


•DO* 


000206 





* 


•BEGIN* 

■) £""^ 

000*07 

00 FI 

E840 

FFOF 


L17 

LDR 

6*0+1 

m 

000208 

OOF 3 

6EC1 




ADV 

6,-63 

m # 

000*09 

00F4 

6A01 

0059 



BO* 

6 *L18 


000210 





* 


•INTEGER* FLAG; 





TITLE 

CRMS3*' 

•REV G* 

•CAKDKEADER 

/ PUNCH TV (SAF) PAGE 47 

ooo*u 





# 


•CODE*’BEGIN* J 

000* u 

OOF6 

AF40 

FF09 



ST R 

$R2*D 

000*13 

OOF8 

A840 

FF08 



LDR 

$R2*D*1 

000214 





* 


JCBJ 

000*13 

OOFA 

8740 

FF08 



CL 

0 + 3 

| 000*10 

OOFC 

82 AO 

0000 

X 


LB 

<ZHIAFB.S>R2 

I 000*17 





* 


j Cb i 

V 000216 





# 


BBF > + $A 

000*19 

OOFE 

0580 


1 


BBF 

>*$A 

000220 

OOFF 

8AC0 

FF03 



INC 

□♦3 

000*21 





# 


JCBJ 

000*22 





* 

SA 

LOR $R2 * 1 TEMP 

000223 

0101 

A840 

FEFE 


$A 

LDR 

SR2*D 

000*24 





* 


•IF* 1 •EQ• PROGRAM LEVtL 

000223 

0103 

E840 

FEFO 



L DR 

6*0*1 

000**6 

0105 

E940 

FEFC 



cm 

6*D*2 

000227 

0107 

0905 




BE 

>L19 

000*26 





* 


•OR* I *EQ* DEVICE LEVEL 

000*29 







•THEN* 

000*30 





# 


•BEGIN* 

000*31 

0106 

E940 

0000 

P 


CMR 

6«OLVL 

00023* 

010A 

0981 

0028 



BNt 

L20 

000*33 


OIOC 



L19 

EQU 

$ 

000234 





# 


•IF* ’BITS* enug FLAG • EQ * i 

000*33 





* 


•THEN* 

000*36 





* 


•BEGIN* 

000*37 

oioc 

E840 

FEF6 



LOR 

6*0*3 

000*36 

010E 

6B01 

0011 



BE VN 

6 *L2 1 

000*39 





* 


♦IF* PROGRAM LEVEL *Ne* I 

000240 





* 


•THEN* 

000*41 





# 


•BEGIN* 

000*42 

QUO 

C840 

FEF1 



LOR 

4,0*2 

000*43 

0112 

C940 

FEEE 



CMR 

4,0*1 

000*44 

0114 

0901 

0035 



BE 

L22 

000*43 





* 


•CODE*’BEGIN* J 

000246 

0116 

AT 40 

FEE9 



str 

$K2 *0 

000*47 

0116 

A840 

FEE8 



LOR 

$R2 * 0*1 

000246 







JCBJ 

000*49 





* 


LBF <ZHIAFB.$RZ IUKN OFF FLAG 

000250 





* 


LDR *R2 *)TEMP 

000*51 

011A 

8820 

0000 

X 


LBF 

<ZHIAFB•$R2 

000*52 

one 

A840 

FEE3 



LOR 

SK2 * 0 

000253 





* 


•END* ? 

000*54 





# 


•END* 

000*55 





* 


* tLSE• 

000*56 





* 


• BEGIN* 

000*57 

out 

0F81 

002B 



B 

L22 

000*56 


0120 



L21 

EQU 

5 

000*59 





* 


LABEL 2 ;= ’LITERAL* (FO)? 

000*60 

0120 

E870 

464F 



LOR 

6,517999 

000*61 

0122 

EF40 

0000 

p 


ST R 

6,LABEL2 

000*6* 

01*4 

0840 

0000 

p 


LOR 

SR5 * DLV * 

000*63 

01*6 

C840 

FEDA 



LDR 

$R4,D*1 

000*64 





* 


LOAD R4 R5 (I,DEVICE LEVEL)5 

000*65 

0128 

D3C0 

0000 

p 


LNj 

5, JRE 

000*66 





* 


REPORT ERROR? 

^ 000*67 

012A 

FBCO 

FED9 



LAB 

1 ,D*4 

f 000*66 

012C 

9BC0 

FF07 



lab 

1 * T23 ° 

000*69 

012E 

9F87 




ST d 

i*SB7 

1 000*70 

012F 

03C0 

0000 

p 


LNJ 

5* VKPT 

000*71 





# 


PUT TEXT l". FLAb NOT 0N$ M )? 

000*7* 





* 


•GO TO* FKE6H STmRT? 

000*73 

0131 

83C0 

0000 

p 


JMP 

FRESHS 

000*74 





* 


•END*; 

000*75 





* 


•END* 

000*76 





* 


•ELSE* 

000*77 





* 


•BEGIN* 

000*76 


0133 



L20 

, EQU 

$ 

000*79 





* 


•IF* ’BITS* ei,0@ FLAG *E0* 1 

000280 





* 


•THEN* 

000*81 





* 


•BEGIN* 

000*8* 

0133 

E840 

FECF 



LOR 

6 *D*3 

000*83 

0135 

6801 

0014 



BE VN 

6 ,L22 

000*84 





* 


LABEL 2 ’LITERAL* (WF) ? 

000285 

0137 

C870 

5746 



LOR 

4, = 22342 

000*86 

0139 

CF40 

0000 

p 


STR 

4,LABEL* 

000*87 

013b 

0840 

0000 

p 


LOR 

$K5 * DLVL 

000*88 

0130 

C840 

FEC3 



LDR 

$K4,0*1 

000289 





* 


LOAD R4 R5 (I,DEVICE LEVEL)5 

000*90 

013F 

03 CO 

0000 

p 


LNJ 

5 « JRE 

000291 





* 


REPORT EKKQK? 

00029* 





* 


PUT TEXT (”* NOT DEV OR CP FLAGS** ) ? 

000*93 

0141 

FBCO 

FEC2 



lab 

7*0*4 

000*94 

0143 

9BC0 

FEF8 



lab 

1 * T26 

000*95 

0145 

9F87 




STB 

I * SB7 

000296 

0146 

03C0 

0000 

p 


LNJ 

5 * VKPT 

000*97 





* 


•GO TO* FRESH START? 

000*98 

0148 

83C0 

0000 

p 


JMP 

FRESHS 

000299 





# 


•END* ? 

000300 





* 


•END* ? 

000301 





# 


•END* ? (OF FOR LOOP) 

000302 

014A 

8AC0 

FEB6 


L22 

INC 

0*1 

000303 

014C 

0F81 

FFA4 



B 

L17 

000304 


Q14E 



L18 

EQU 

$ 

000305 





# 


•IF* DEVICE LEVEL *EQ* CP LtVEL 

000306 





* 


•THEN* 

000307 





# 


•BEGIN* 

000306 

014E 

E840 

0000 

p 


LOR 

6 * DLVL 

000309 

0150 

E940 

0000 

p 


CMR 

6 *CPLEVE 

000310 

0152 

0981 

0005 



BNE 

L27 

000311 







•CODE*’BEGIN*j 

00031* 





# 


JMP <RUPTI 

000313 





* 


] • END* ? 

000314 





* 


•END* 

000315 

0154 

8380 

0000 

X 


JMP 

<RUPTI 

000316 





# 


•ELSE* 

000317 

0156 

83C0 

FF3B 



JMP 

DEV IH 

000316 

0158 

E840 

0000 

p 

L27 

LOR 

6,CPLEVE 

r ~ 000319 

015A 

E470 

8000 



OR 

6,=-32766 

f 000320 

Q15C 

EF40 

0000 

p 


STR 

6 , LEVTYP 

| 000321 

015E 

8E40 

0000 

p 


LEV 

LEVTYP 

L--' 000322 





* 


LEV ( *H£X»(8000)*CP LEVtL); 

000323 





# 


•GO TO* DEVICE HANDLER? 



TITLE 


CRMS3* *RtV G**CARDREADER / PUNCH TV (SAP) 


PAGE 46 


0000 

e@L 


000324 

000323 

000326 0160 83C0 FF31 

000327 

000326 

000329 

000330 

000331 

000332 

000333 

000334 

000333 

000336 

000337 

000336 

000339 

000340 

000341 

000342 

000343 

000344 

000345 0162 0048 

EKR COUNT 


•END*5 


JMP 

DEVI H 

XLUC 

ZVSAF 

CTRL LINK 

ZVSAF 

XLUC 

VKPT 

XLUC 

CHANNE 

XLUC 

LABEL2 

XLUC 

CK5EH 

XLUC 

L21SEM 

XLUC 

DLVL 

XLUC 

DV3EM 

XLUC 

CPLEVE 

XLUC 

LEVTYP 

XLUC 

TEMPCH 

XLUC 

SREG 

XLUC 

ZHIAFB 

XLUC 

I SAD 

XLUC 

I SAP 

XLUC 

JRE 

XLUC 

FRESHS 

END 

ZVKJ1K* ZVKJIR 



..-T 



4 




TITLE 


CRMS3*»REV G*,CAKDREADER / PUNCH TV (SAP) 


PAGE 49 


E ZVKJMC 

• LIST 




05/19/78 

1424.9R W 05/19/78 1423.6 »184000U0 

000001 






TITLE 

ZVKJMC*•REV 00* 

00000* 


OOOE 




XOLF 

JMC 

000003 


0009 




XDEF 

ZVKJMC 

000004 


0008 



ZKCOM 

COMM 

8 

000003 

0000 

0000 



0 

RESV 

9*0 

000006 


0009 



ZVKJMC 

EQU 

$ 

000007 

0009 

8F00 

0001 

K 


SAVE 

<ZKCOM*1*2*0011* 


000b 

0011 






000006 





* 

• PROCEDURE * 

MICRO (*INTEGtR* * ARRAY# RAY)5 

000009 





* 

•BEGIN* 


000010 

oooc 

0F81 

0054 



B 

LI 

oooou 





* 

•INTEGER* INSTRUCTION COUNTER* I; 

000012 

OOOE 

OF CO 

FFF 1 


JMC 

STB 

5*0 

000013 

0010 

6C87 




LDI 

$67 

000014 

0011 

6040 

FFEF 



SOI 

0*1 

000013 





* 

INSTRUCTION COUNTER iz RAY SOe? 

000016 

0013 

C848 

FFEO 



LOR 

4 ,*D +I 

000017 

0015 

CF40 

FFED 



STR 

4.D+3 

000016 

0017 

F6C0 

FFEO 



LAB 

7*0*5 

000019 

0019 

96C0 

0000 

P 


LAB 

l«IOTM 

000020 

0016 

9F87 




STB 

1*$67 

000021 





* 

INOUT 

(SET TEST MODE* OUTPUI CONTROL ©0«); 

000022 

001C 

ABCO 

0000 

P 


LAB 

2 * IOWORD 

000023 

001E 

AF CO 

FFE7 



STB 

2*0*6 

000024 

0020 

03C0 

0000 

P 


LNJ 

5 * JIO 

000023 


0022 



L3 

EQU 

$ 

000026 





* 

• FOR* 

I 1 • STEP • 1 • UNTIL • INSTRUCTION COUNTER 

000027 

0022 

6C01 




LOV 

6,1 

000026 

0023 

EF40 

FFEO 



STR 

6*0*4 

000029 





* 

*00* 


000030 

0025 

C840 

FFDD 



LOR 

4*0*3 

000031 

0027 

CF40 

FFOO 



STR 

4,0*5 

000032 

0029 

E840 

FFDA 


L4 

LOR 

6*0*4 

000033 

0026 

E240 

FFD 9 



SUB 

6*0*5 

000034 

0020 

6A11 




6G2 

6, >L5 

000033 

002E 

E84Q 

FF02 



LOR 

6,0+1 

000036 

0030 

EA40 

FFD3 



AOO 

6*0*4 

000037 

0032 

F6C0 

FFD3 



LAB 

7 * D ♦ 6 

000036 

0034 

EF07 




STR 

6 * $ 6 7 

000039 





* 


INOUT ( RAY @I@* OUTPUT CONTROL VQ@) ? 

000040 

0035 

96C0 

0000 

P 


LAB 

1 * IOWORD 

000041 

0037 

9FC0 

FFCF 



STB 

1*0+7 

000042 

0039 

03C0 

0000 

P 


LNJ 

5 , J10 

000043 

0036 

8AC0 

FFC8 



INC 

0 + 4 

000044 

0030 

OFEC 




6 

>L4 

000043 

003t 

FfcjCO 

FFC6 


L5 

LAB 

7*0+5 

000046 

0040 

96C0 

0000 

P 


LAB 

1 * SCR 

000047 

0042 

9F87 




STB 

1 *$67 

000046 

0043 

ABCO 

0000 

P 


lab 

2 * I DWORD 

000049 

0045 

AFCO 

PFCO 



STB 

2*0*6 

000050 

0047 

03C0 

0000 

P 


LNJ 

5 * J10 

000051 





* 

INOUT 

(SET CHANNEL READY * OUTPUT CuNTKQL @0£)5 

000052 

0049 

F6C0 

FFBB 



lab 

7,0 + 5 

000053 

0046 

9BC0 

0000 

P 


LAb 

1,10X1 

OOOo 54 

0040 

9F67 




STB 

1 *$67 

000053 

004E 

ABCO 

0000 

P 


LAB 

2 *IOWORJ 

00005b 

0050 

AFCO 

FFB5 



STB 

2,0 + 6 

000057 

0052 

03C0 

0000 

P 


LNJ 

5* JIU 

000056 





* 

INOUT 

(WAIT LOOP ADDRESS, OUTPUT CONTROL @0^)5 

000059 

0054 

FBCO 

FFBO 



LAb 

7,0*5 

000060 

0056 

9BC0 

0000 

P 


LAB 

1,10X2 

000061 

0058 

9F87 




STB 

1 *$67 

000062 

0059 

ABCO 

0000 

P 


LAB 

2 *IOWORJ 

000063 

0056 

AFCO 

FFAA 



STB 

2*0 + 6 

000064 

0050 

03C0 

0000 

P 


LNJ 

5 * J10 

000065 





* 

INOUT 

(RETURN FROM TEST MODE, OUTPUT CONTROL GOG) 

000066 





* 

* ENO •; 


000067 





* 

•ENO* ; 


000066 





* 

•FINISH* 


000069 

00 5 F 

83C8 

FFAO 



JMP 

*0 

000070 


0061 



LI 

EQU 

$ 

000071 

0061 

83C0 

0000 

P 


JMP 

ZKSEX 

000072 






XLOC 

ZKSEX 

000073 






CTRL LINK. 

ZKSEX 

000074 






XLOC 

SCR 

000075 






XLOC 

IOTM 

000076 






XLOC 

10X1 

000077 






XLOC 

10X2 

000076 






XLOC 

1 DWORD 

000079 






XLOC 

JIO 

000080 

0063 

0009 




ENO 

ZVKJMC,ZVKJMC 

0000 EKR COUNT 










TITLE 


CRMS3**REV G*,CARDREADER / PUNCH TV (SAP) 


PAUL 50 


2VKUPD 

• Li ST 




05/19/78 

1425.1R W 

05/19/78 1422.3 16*9010000 

000001 






TITLE 

ZVKUPD+ * REV 00* • 

00000* 


0010 




XPLF 

JPP 

000003 


0006 




XDEF 

ZVKJPP 

000004 


0008 



ZKCOM 

COMM 

8 

000003 

0000 

0000 



P 

RESV 

1UG 

000006 


OGOB 



ZVKUPD 

EQU 

$ 

000007 

0000 

8F00 

0001 

K 


SAVE 

<ZKCUM+1,Z*00U* 


GOOD 

0011 






000006 

OOGE 

0F81 

00D5 



6 

Li 

000009 





# 

• PROCEDURE * PUNCH A DECK. <• VALUE* * IN TEGEK * CARDS SPECIFIED* 

000010 





* 


TYPE OF PUNCHES)* 

000011 





* 

•BEGIN* 


00001* 





* 

•INTEGER* N,15 

000013 

0010 

DF CO 

FFEF 


JPP 

STB 

5 »D 

000014 

0012 

6C87 




EDI 

$B7 

000013 

0013 

8D40 

FFEP 



SDi 

0*1 

000016 





# 

n ; - 

o; 

000017 

0015 

8740 

FFED 



CL 

D+3 

000016 





* 

R OR 

V MUDE ’LITERAL* (R)* 

000019 

0017 

4C52 




LDV 

4,82 

000020 

0018 

CF40 

0000 

P 


STR 

4,RORVMU 

000021 





* 

READ 

OK PUNCH ;= PUNCH ©Ofe; 

000022 

001A 

0800 

0010 

X 


LPR 

5 *<IQWOHD+16 

000023 

001C 

DF40 

0000 

P 


STR 

5,REAPOR 

000024 





* 

CHECK 

STATE (SHOULD BE ON)? 

000025 

GOlfc 

F6C0 

FFE6 



LAB 

7 ,p + 5 

000026 

0020 

1C01 




LDV 

1,1 

000027 

0021 

9F07 




STR 

1 ,SB7 

000026 

0022 

P3C0 

0000 

P 


LNU 

5 ,UCS 

000029 

0024 

FBCO 

FFEO 



LAB 

7,D+5 

000030 

0026 

9BC0 

0000 

P 


LAB 

1,BUFFI 

000031 

0028 

9F87 




STB 

i ,SB7 

00003* 

0029 

OFOO 

0010 

X 

N1 

NOP 

<I0WQRD+16 

000033 

0026 

L84Q 

FFFE 



LPR 

6,N1+1 

000034 

002Q 

EF4Q 

FFD8 



STR 

6 , D+6 

000036 





* 

IOLD 

(BUFFER PUNCH §00,1/1); 

000036 

002F 

C870 

OOAb 



LPR 

4,5171 

000037 

0031 

CF40 

FFP5 



STR 

4 ,D+ / 

000036 

0033 

D3C0 

0000 

p 


LNU 

5 ,UIL 

000039 





# 

CHECK 

STATE (SHOULD BE ON); 

000040 

0035 

FBCO 

FFCF 



LAB 

7,P+5 

000041 

0037 

6C01 




lpv 

6,1 

00004* 

0038 

EF07 




STR 

6 , $B7 

000043 

0039 

P3C0 

0000 

p 


LNJ 

5 ,UCS 

000044 

G03B 

P3C0 

0000 

p 


LNU 

5, USE 

000045 





* 

check 

STATUS FUR ERRORS; 

000046 





**: 



000047 





** EQUATE BUFFER* 

WITH bUFFERl IF SAME DAIA TO Be PUN C HED ELSE * 

000046 





# 

ERO out; 


000049 





**; 



000050 





* 

•IF* 

TYPE OF PUNCHES «EQ* ’LITERAL* (R) 

000051 





# 

•THEN' 

00005* 

0030 

E.840 

FFC4 



LPR 

6,P + 2 

000053 

003F 

6052 




CMV 

6,82 

000054 

0040 

0990 




BNE 

>L3 

000055 

0041 

FBCO 

FFC3 



LAB 

7,P+5 

000056 

0043 

9BC0 

0000 

p 


LAB 

1,BUFF2 

000057 

0045 

9F87 




STB 

1, $B7 

000056 

0046 

4C50 




LPV 

4,80 

000059 

0047 

CF40 

FFBE 



STR 

4,P + 6 

000060 





* 


FILL BUFFER (BUFFER 2 ,080,0) 

000061 

0049 

CF40 

FF6P 



STR 

4,P + 7 

00006* 





* 

•ELSE* 

000063 

0046 

8740 

FFBC 



CL 

P + 8 

000064 

0040 

P3C0 

0000 

p 


LNu 

5»UFB 

000065 





* 

•BEGIN* 

000066 

004F 

OF 90 




B 

>L4 

000067 


0050 



L3 

EQU 

$ 

000066 


0050 



L5 

EQU 

$ 

000069 





* 


• FUR* 1 ;sO * STEP * 1 *UN fIL•79 

000070 

0050 

8740 

FFB3 



CL 

P + 4 

000071 





# 


•DO* 

00007* 

005* 

L840 

FFB1 


L6 

LPR 

6,P+4 

000073 

0054 

6tBl 




APy 

6,-/9 

000074 

0055 

6A0A 




BGZ 

6 ♦ >L4 

000075 





* 


BUFFER2@I§* sBUFFER! 

000076 

0056 

9840 

FFAP 



LPR 

1 , P + 4 

000077 

0058 

E810 

0000 

X 


LPR 

6,<bUFF1 ♦ $R 1 

000076 

005A 

EF10 

0000 

X 


STR 

6,<BUFF2.$Ri 

000079 

005<; 

8AC0 

FFA7 



INC 

P + 4 

000080 

005E 

QFF4 




B 

>L6 

000081 





* 

•END* 

; 

00008* 


005F 



L4 

EQU , 

i 

000083 





# 

ERROR 

FLAG o; 

000084 

00 5 F 

8740 

0000 

p 


CL 

EKROKF 

000086 

0061 

0004 




PC 

4 

000086 





* 

CLOCK 

on; 

000087 

0062 

6C01 



L8 

LPV 

6,1 

000086 

0063 

EF40 

0000 

p 


STR 

6,CAKPSR 

000089 





# 

•FOR* 

CARP COUNT i* 1 * STEP* 1 ’UNTIL* CARDS SPECIFIED-! 

000090 





* 

•DO* 


000091 





* 

•BEGIN* 

000092 

0065 

E24Q 

FF9B 



SUB 

6, D+1 

000093 

0067 

6256 




NEG 

5$R6 

000094 

0066 

EF40 

FF9C 



STR 

6 ,D+5 

000095 

006A 

E840 

0000 

p 

L9 

LPR 

6,CARPSR 

000096 

Q06C, 

E24Q 

FF98 



SUB 

6 ,P+5 

000097 

0G6E 

6A01 

0069 



BG* 

6 ,L10 

000096 

0070 

D3C0 

0000 

p 


LNU 

5,VKGB 

000099 





* 


• IF* GET BREAK *EQ* TRUt 

000100 





* 


•THEN* 

000101 





# 


•GU TO* STOP PUNCHING; 

00010* 

0072 

6P01 




CMV 

6,1 

000103 

0073 

0901 

0064 



BE 

L10 

000104 





* 


• IF* TYPE UF PUNCHES * EQ* * LITERAL* (R) 

000105 





# 


• THEN* 

000106 





* 


•BEGIN* 

000107 

0075 

E84Q 

FF8C 



LPR 

6, D + 2 

000106 

0077 

6D52 




CMV 

6,82 

000109 

0076 

0981 

0Q3B 



BNE 

L13 

000110 





* 


•IF* CARD COUNT *LT* 81 

oooin 





# 


• THEN* 
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000112 





* 


•BEGIN* 

QUO 113 

00 7A 

C840 

0000 

P 


LOR 

4,CAROS* 

0U0114 

007C 

4051 




CMV 

4,81 

000115 

0070 

089F 




BAGE 

>L 14 

000116 





* 


•IF* *6ITP* ei,0«* CARO count *tu* 1 

000117 





* 


•THEN* 

000118 





* 


•begin* 

000119 

0071 

4B0D 




BEVN 

4 , >L 15 

000120 

007F 

4EFD 




APV 

4,-3 

000121 





# 

BUFREK2 ^CaRDCQuNT-3®• - 0 * 

000122 

0080 

9854 




LOR 

1 , -SK4 

000123 

0081 

8710 

0000 

X 


CL 

<BUF F 2,SR 1 

000124 

0083 

9840 

0000 

p 


LOR 

1,CARDSR 

000123 

0065 

1EFF 




APV 

1,-1 , , 

000126 





* 

BUFFEK2 eCAR0CUUNT-iei=CARDC0UNT5 

000127 





* 


•END* 

000126 

0086 

C840 

0000 

p 


LOR 

4,CARDSR 

000129 

0088 

CF10 

0000 

X 


STR 

4,<BUFF2• SR 1 

000130 





* 


•ELSE* 

000131 





* 


•BEGIN* 

000132 

006A 

OFAA 




6 

>L 13 

000133 

008b 

9840 

0000 

p 

L15 

LOR 

1,CARDSR 

000134 

008D 

9240 

FF75 



SUB 

l,D+3 

000135 





* 


BUFFLK1 eCAR0CGUNT-N«;s05 

000136 

006F 

8710 

0000 

X 


CL 

<BUF F1# SR 1 

000137 

0091 

9840 

0000 

p 


LOR 

1 ,CARDSR 

000136 

0093 

1EFF 




AOV 

l*-i 

000139 





# 


BUFFEK1 gCARDCOUNT-16 5 sCARDCOUNT 5 

000140 

0094 

E840 

0000 

p 


LOR 

6,CARDSR 

000141 

0096 

EF 10 

0000 

X 


STR 

6t<BUFFl.SfU 

000142 





* 


N ;= 3 5 

000143 

0098 

mi 





6,3 

000144 

0099 

FF69 



6, D+3 

000146 





* 


•END*? 

000146 





# 


•END* 

000147 





* 


•ELSE* 

000148 

009b 

OF 99 




B 

>L13 

000149 


009C 



L 14 

EQU 

$ 

000150 




* 

• if* *bms* ei,o@ card count *to* 1 

000151 





# 


•THEN* 

000152 

009C 

E840 

0000 

p 


LOR 

6,CARDSR 

000153 

009E 

6B0C 




BEVN 

6 , >L 17 

000154 




* 


FILL WITH RANDOM DATA (BUFFER 2«00,80) 

000155 

009F 

FBCO 

FF66 



LAB 

7,0 + 6 

000156 

00A1 

9BC0 

0000 

p 


LAB 

1,BUFF2 

000157 

00A3 

9F87 




ST d 

1, $B7 

000156 





* 


•ELSE* 

000159 

00A4 

4C50 




m 

4,80 

000160 

OOA5 

CF40 

FF61 



4,0 + 7 

000161 

00A7 

03C0 

0000 

p 


LNJ 

5,VKFRD 

000162 

00A9 

OF 86 




B 

>Ll 3 

000163 

OOAA 

FBCO 

FF56 


L 17 

LAB 

7,0 + 6 

000164 

0OAC 

9BC0 

0000 

p 


LAB 

1,BUFFI 

000163 

00 AE 

9F67 




STB 

1 ,$67 

000166 





* 


FILL WITH RANDOM DATA (BUFFER 1000,80) 

000167 

OOAF 

6C50 




LQV 

6,80 

000168 

0060 

EF40 

FF56 



STR 

6, D + 7 

000169 

0062 

03C0 

0000 

p 


LN j 

5,VKFRD 

000170 





# 


•END* ; 

000171 


0064 



L13 

EQU 

$ 

000172 

000173 





* 


GENERATE CHtCKSUMS (READ OR PUNCH )5 

0064 

FBCO 

FF51 



tss 

7 , D ♦ 6 

000174 

0066 

E840 

0000 

p 


6,KEAD0R 

000175 

0066 

EF07 




STR 

6 , $B7 

000176 

0069 

0066 

03C0 

0000 

p 


LNJ 

5 , JGC 

000177 

D3C0 

0000 

p 


LNJ 

5 , JSE 

000176 




* 


CHECK STATUS FOR ERRORS? 

000179 





* 


* IF• CARDCOUNT •EQ* 1 

000180 

006P 

E840 

0000 

p 


LOR 

6,CARDS* 

000181 

006F 

6001 




CNV 

6,1 

000182 

000183 

OOCO 

0994 



* 

BNE 

•AN&* TYPE OF PUNCHES ’EQ• 'LITERAL* (R) 

000184 





* 


•THEN* 

000185 

OOCl 

C840 

FF40 



LOR 

4, D+ 2 

000186 

00C3 

4052 




CMV 

4,82 

000187 

OOC4 

0990 




bNt 

>L 19 

000188 

00C5 

FBCO 

FF40 



LAB 

7,0 + 6 

000189 

0QC7 

96C0 

0000 

p 


LAB 

1,BUFFI 

000190 

0QC9 

9F87 




STB 

1, SB7 

000191 

OOCA 

5C54 




Loy 

STR 

5,84 

000192 

OOCb 

OOCO 

DF40 

FF36 



5 *D+7 

000193 

7C50 




LOV 

7,80 

000194 

OOCE 

FF40 

FF39 



STR 

7, D+8 

000195 

OODO 




* 


FILL BUFFER (BUFFtR 1,080*0); 

000196 

8740 

FF38 



CL 

D+9 

000197 

0002 

D3C0 

0000 

p 


LNJ 

5 , JFB 

000198 




* 

•END* 

♦ 

000199 





* 

STOP PUNCH 

ING; 

000200 

0004 

8AC0 

0000 

p 

L19 

INC 

CARDSR 

000201 

0006 

0F8 1 

FF93 



B 

L9 

000202 


0008 



UO 

EQU - 

$ 

000203 

0008 

0005 




oc 

5 

000204 




* 

CLUCK 

off; 

000203 





* 

REAP 

OK PUNCH i -false; 

000206 

0009 

8740 

0000 

p 


CL 

READOR 

000207 





* 

GENERATE CHECKSUMS (REAP OR PUNCH)5 

000208 

000209 

0006 

FBCO 

FF29 


* 

•END*; 

ttt 

7,0 + 5 

000210 

0000 

E840 

0000 

p 


6,READOR 

000211 

OOOF 

EF07 




STR 

6, $67 

000212 

OOEO 

03C0 

0000 

p 


LNJ 

5 * JGC 

000213 

000214 





* 

* 

•END* f 
•FINISH* 

(OF SEGMENT) 

000215 

00E2 

83C8 

FF10 



JMP 

*D 

000216 


OOE4 



LI 

EQU 

$ 

000217 

00E4 

83C0 

0000 

p 


JMP 

ZKSEX 

000216 






XLQC 

ZKSEX 

000219 






CTRL LINK ZKSEX 

000220 






XLUC 

vkgb 

000221 






XLQC 

VKFRD 

000222 






XLQC 

CARDSR 

000223 






XLQC 

RORVMO 

000224 






XLQC 

ERRORF 




TITLE 
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OOQ225 

000226 


REAPQK 

BUFFI 

000227 

XLOC 

BUFF2 

000226 

XLUC 

IQWORO 

000229 

XLOC 

JGC 

000230 

XLQC 

JIL 

000231 

XLOC 

USE 

000232 

XLOC 

JCS 

000233 

XLOC 

JFB 

000234 00E6 OOOB 

END 

2VKJPO»2VK0PD 


GOOD ERR COUNT 
£§L 




TITLE 


CRMS3 * * REV G* .CAKDREADER / PUNCH TV (SAP ) 
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E ZVKJPN 

.LIST 



05/19/78 

1425.2R 

W 05/19//8 1423.8 236250000 

000001 





in? 

ZVKJPN * * REV 00* 

oooooz 


0009 



JPN 

000003 


0004 



XDEF 

ZVKJPN 

000004 


0008 


ZKCOM 

COMM 

8 

000005 

0000 

0000 


0 

RESV 

4*0 

000006 


0004 


ZVKJPN 

EQU 

S 

000007 

0004 

0006 

0007 

bFOO 0001 
0011 

Oh 81 0010 

K 


SAVE 

<ZKCQM+l,Z*OQli* 

000006 



B 

LI 

000009 




* 

• PROCEDURE• PUT NUMBER (•VALUE••1NlEGER• NUMBER IN R6) ; 

000010 




* 

•BEGIN* 


oooon 




* 

• INTEGER* A? 

000012 

0009 

OF CO FFF6 


JPN 

ST B 

5*0 

000013 

000 b 

£.807 



LOR 

6*SB7 

000014 

OOOC 

EF40 PFF4 



STR 

6 *0+1 

000015 




* 

A 

;s * HEX• (5C); 

000016 

QOOt 

4C5C 



kn 

• 

4*92 

000017 

OOOF 

CF40 FFF2 



4 * D + 2 

000016 




* 

CODE*'BEGIN* J 

000019 




* 


XLUC ZVSTD 

000020 




# 


LNJ SB5*ZV$T0 

000021 





XLUC 

ZVSTD 

000022 

000023 

0011 

03C0 0000 

P 

* 

LNJ 

SBSfZVSTO 

JCB J 

000024 




* 


B > + SB 

000025 

0013 

OF 80 

1 


B 

> + $B 

000026 

0014 

0001 



DC 

<0+1 

000027 




* 

JCB] 

00002 b 

0015 

0002 



DC 

<0 + 2 

000029 

0016 



SB 

QRG 

$ 

000030 




* 

•END*; 

• f ;sr 

(OF SEGMENT) 

000031 




# 

t 

000032 

0016 

83C8 FFE9 



#0 

000033 


83cB 0000 


LI 

EQU 

s 

000034 

0016 

P 


JMP 

ZKSEX 

000035 




XLUC 

ZKSEX 

000036 





CTRL 

LINK ZKSEX 

000037 

001 A 

0004 



END 

ZVKJPN * ZVKJPN 

0000 ERR COUNT 







C 



TITLE CRMS3 * # KtV G•*CAKDKtADEN / HUNCH TV (SAP) 
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TITLE 

CRMS3 * 1 REV 

' 0* 

,cardreader 

/ PUNCH 

TV (SAF) PAGE 55 

E ZVKJSE 

• LIST 





05/19/78 

1425,2R W 

05/19/78 1422.5 3330990000 

QOOQOi 







TITLE 


ZVKJSE,•REV 00* 

^ OOOOOI 


0000 





XDEF 


USE 

I 000003 


OOCB 





XDEF 


ZVKJSE 

1 000004 


0006 




ZKCQM 

COMM 


8 

^ 00000b 

0000 

0000 




0 

RE5V 


7,0 

000006 

0007 

0018 




T 8 

DC 


24 

000007 

0008 

2C20 

5354 

524F 



TEXT 


*, STROBE ERROR DRO* 


000 b 

4245 

2045 

5252 








4F52 

2044, 

524F 






000008 

0011 

5050 

4544 

2024 



TEXT 


•PPED $• 

000009 

0014 

0000 




T10 

DC 


13 

0000 X0 

0015 

2C20 

5354 

4154 



TEXT 


• ♦ STATUS WAS$• 


0018 

5553 

2400 

2057 

4153 






oooou 

001C 

0013 




Til 

DC 


19 

oooou 

0010 

2C20 

5354 

4154 



TEXT 


*, ST AT JS SHOULD BE* 


0020 

5553 

2053 

484F 








554C 

4420 

4245 






000013 

0026 

2400 





TEXT 


•$* 

000014 

0027 

0012 




T13 

DC 


18 

000U15 

0028 , 

4441 

5441 

2053 



TEXT 


•DATA SERVICE RATES* 


002 B 

4552 

5649 

4345 








2052 

4154 

4524 






000016 

0031 

0011 




T17 

DC 


17 

000017 

0032 

4153 

4349 

4920 



TEXT 


•ASCII CODE ERRORS* 


0035 

434F 

4445 

2045 







5252 

4F52 

2400 






000016 

003b 

OOOF 




T20 

DC 


15 

000019 

003C 

5245 

4144 

2052 



TEXT 


•READ REG ERRORS* 


00 3 F 

4547 

2045 

5252 








4F52 

2400 







000020 

0044 

GOOD 




T23 

DC 


13 

000021 

0045 

5354 

524 F 

4245 



TEXT 


•STROBE ERRORS* 


0046 

2045 

2400 

5252 

4F52 






000022 

004C 

0011 




T25 

DC 


17 

000023 

0040 

4C49 

4748 

542F 



TEXT 


•LIGHT/DARK ERRORS* 


0050 

4441 

524B 

2045 








5252 

4F52 

2400 






000024 

0056 

0011 




T28 

DC 


17 

000025 

0057 

5055 

4E43 

4820 



TEXT 


•PUNCH ECHO ERRORS* 


005A 

4543 

464F 

2045 








5252 

4F52 

2400 






000026 

0060 

OOOF 




T30 

DC 


15 

000027 

0061 

4F44 

4420 

5055 



TEXT 


•ODD PUNCH ECHOS* 


0064 

4E43 

4820 

4543 








484F 

2400 







000026 

0069 

001E 




T32 

DC 


30 

000029 

006A 

4A41 

402C 

2052 



TEXT 


•JAM, RECORD MA1NTE* 


0060 

4543 

4F52 

4420 







4041 

494E 

5443 






000030 

0073 

4E41 

4E43 

4520 



TEXT 


•NANCE PANELS 1 


0076 

5041 

4E45 

4C24 






f 000031 

0079 

GOOD 




T 34 

DC 


13 

I 000032 

007A 

484F 

5050 

4352 



TEXT 


•HOPPER EMPTYS* 

l 

0070 

2045 

2400 

4D50 

5459 






000033 

0081 

000 b 




T36 

DC 


11 

000034 

0082 

4041 

5246 

2033 



TEXT 


•MARK SENSES* 


0085 

454E 

5345 

2400 






000035 

0088 

0007 




T38 

DC 


7 

000036 

0089 

3430 

2043 

4F4C 



TEXT 


•40 COLS* 

0 Q8C 

2400 








000037 

0060 

0007 




T4Q 

DC 


7 

000036 

008t 

3531 

2043 

4F4C 



TEXT 


•51 COLS* 


0091 

2400 




T 42 

DC 



000039 

0092 

OOOE 





14 

000040 

0093 

4558 

5420 

434C 



TEXT 


•EXT CLUCK TRKS* 


0096 

4F43 

4624 

4B20 

5452 






000041 

009A 

OOOB 




T 44 

DC t 


11 

000042 

009b 

5245 

4144 

2043 



TEXT 


•READ CHECKS * 


009t 

4845 

4346 

2400 






000043 

00A1 

0006 




T46 

DC 


11 

000044 

00A2 

4153 

4349 

4920 



TEXT 


•ASCII CODES* 


00A5 

434F 

4445 

2400 






000045 

00A6 

0012 




146 

dc 


18 

000046 

00A9 

434F 

5252 

4543 



TEXT 


•CORRECTED MEM ERRS* 


OOAC 

5445 

4420 

4045 








4020 

4552 

5224 






000047 

00 B2 

0011 




T50 

DC 


17 

000046 

OOB3 

4E4F 

4E20 

4358 



TEXT 


•NON EXT RESOURCES* 


0066 

5420 

5245 

534F 








5552 

4345 

2400 






000049 

006C 

000 b 




T 52 

DC 


11 

000050 

0060 

4255 

5320 

3041 



TEXT 


•BUS PARITYS* 


OOCO 

5249 

5459 

2400 






000051 

00C3 

OOOE 




T 54 

DC 


14 

000052 

00C4 

554E 

434F 

5220 



TEXT 


•UNCOR MEM ERR$» 


00C7 

4045 

5224 

4020 

4552 






000053 


OOCB 




ZVKOBE 

EQU 


S 

000054 

OOCb 

8 F00 

0001 


K 


SAVE 


<ZKCOM*l,Z*OQU* 


OOCO 

0011 








000055 






# 

♦BEGIN* 



000056 

OOCb 

0F81 

Q19E 




6 


LI 

000057 






* 

* integer* 

range; 

000056 

0000 

OFCO 

FF2F 



J5E 

5TB 


5, D 

000059 

0002 






XLUC 


ZVSER 

000060 

OFCO 

FF2F 




5TB 


SB5,D+2 

000061 

0004 

FBCO 

FF2E 




LAb 


7,D + 3 

000062 

0006 

96C0 

FF2A 




LAb 


1 , D+1 

000063 

0008 

9F8 7 





STB 


1 ,$B7 

000064 






* 

INPUT 

(RANGE, INPUT RANGE £0@)5 

— 000065 

0009 

OFOO 

0009 


X 

Hi 

NOP 


<IOWORD+9 

F v 000066 

0006 

E840 

FFFE 




LDR 


6 ,N1+1 

000067 

oooo 

EF 40 

FF26 




STK 


6 , D+4 

L 000068 

OODF 

03C0 

0000 


P 


LNJ 


5 , JIO 

000069 






# 

LABlL 

2 ;= ’LITERAL* (RE)* 

000070 






* 

•COMMENT* 

TESTS M ♦ Nt CHECK RANGt, DON*1 BOTHER HERE 

000071 

OUU 

E870 

5245 




LDR 


6 ,521061 

000072 

O0E3 

EF40 

0000 


P 


STK 


6 ,LABEL2 




TITLE 

CRMS3* 

•REV 0* 

tCARPREAPER 

/ PUNCH TV (SAF) PAGE 56 



000073 





* 


•IF* * BITS* 08*8@ LABEL i «tQ’ ’LITERAL* 

(M) 


000074 

QQE5 

C2C0 

0000 

P 


LLH 

4,LABELi 



000073 

00fc7 

4P4P 




CMV 

4*77 


jf" r 'v 

000070 

Q0E8 

0901 

003D 



BE 

L7 


£ \ 

000077 





* 


•0R» 'BITS* @B*8@ LABEL 1 *tQ* ’LITERAL* 

(N) 

I i 

00007b 

QGEA 

4P4E 




CMV 

4*78 



000079 

OOEB 

0901 

003A 



BE 

L7 



000080 





* 


•OR’ ’BITS’ @8*8© LABEL 1 ’tQ’ ’LITERAL* 

( I) 


000081 

OOEP 

4P49 




CMV 

4*73 



000082 

OOEt 

0901 

0037 



BE 

L7 



000083 





* 


•OR’ ’BITS’ @8*8£ LABEL 1 ’tQ* ’LITERAL* 

(L) 


000084 

OOFO 

4D4C 




CMy 

4*76 



000083 

00F1 

0,901 

0034 



BE 

L7 



000086 





* 


•OR* ’BITS* e&*8@ LABEL 1 * tQ* ’LITERAL* 

(C> 


000087 





* 


•THEN* 



000088 





* 


•GO TO* CHECK STATUS; 



000089 





* 

* COMMENT• 400 CPM HAS DIFFERENT RANGE; 



000090 

OOF 3 

4P43 




CMV 

4,67 



000091 

00F4 

0901 

0031 



BE 

L7 



000092 





* 


•IF* *BITS* eB*8fe> LABEL 1 •NE* ’LITERAL* 

(F) 


000093 





# 


•THEN* 



000094 

OOF 6 

4P46 




CMV 

4*70 



000093 

00F7 

0906 




BE 

>L5 



000096 





* 


RANGE Is RANGE -115 



000097 





* 

•COMMEN1 * 40 COLUMN MARK SENSE HAS 80 STROBES IFSS; 


000098 

00F8 

P840 

FF08 



LDR 

5 * D+ 1 



000099 

OOFA 

5EF5 




APV 

5*-U 



000100 

OOFB 

PF40 

FF05 



' STR 

5*D+1 



000101 


OOFD 



L5 

EQU 

$ 



000102 





# 


•IF* PUESPO CARP STATUS •EQ* ’HEX* (1800) 



000103 





* 


•THEN* 



000104 

QOFD 

E840 

0000 

P 


LDR 

6 *PUESPJ 



000103 

OOFF 

E970 

1800 



cmr 

6*=6144 



000106 

0101 

0986 




BNE 

>L6 



000107 





* 


RANGE J? RANGE - 805 



000108 





* 

•COMMENT* IS THERE A RANGE ERROR* 



000109 

0102 

C840 

FEFE 



LDR 

4*0+1 



000110 

0104 

4EB0 




APV 

4 *»80 



000111 

0105 

CF40 

FEFB 



STR 

4,D+1 



000112 





* 


* IF« RANGE *NE* 0 



000113 


0107 



L6 

EQU 

$ 



000114 





# 


•THEN* 



000113 





* 


•BEGIN* 



000116 

0107 

E840 

FEF9 



LPR 

6,D+1 



000117 

0109 

6901 

001C 



BEZ 

6*L7 



0001 ly 

0100 

C840 

FEF 5 



LPR 

$R4 *D+1 



000119 

010D 

D840 

0000 

P 


LPR 

$R5*SETT0A 



000120 

010F 

PCCO 

FEF2 



LPb 

SB5 *0 + 2 



000121 

om 

PFCO 

0000 

T 


STB 

$B5*+ $A 



000122 

0113 

P380 

0000 

X 


LNU 

$B5 * <2V 3>ER 



000123 

0115 

OF80 


T 


B 

> + $B 



000124 

0116 

0116 



$A 

DC 

<$ 



000123 

0117 


0000 

X 


PC 

<LABEL1 



000126 

0118 




$B 

ORG 

$ 



000127 





* 


LDAP R4 R5 AND REPORT ERROR (RANGf, 

CLEAR)* 


000128 





# 


PUT TEXT ("* STROBE ERROR DKgPPEP $ 

*») * 


000129 

0118 

FBCO 

FEEA 



LAB 

7,D+3 



000130 

01 lA 

9BC0 

FEEC 



LAB 

1 * T8 


J 

000131 

otic 

9F87 




STB 

1 *$B7 



000132 

OilP 

P3C0 

0000 

P 


LNJ 

5 *VKPT 



000133 

01 IF 

FBCO 

FEE3 



lab 

7*D+3 



000134 

0121 

E840 

FEDF 



LDR 

6 *D+1 



000133 

0123 

EF 07 




STR 

6 *$B7 



000136 

0124 

P3C0 

0000 

P 


LNJ 

5 * JPN 



000137 





* 


PUT NUMBER (RANGE)* 



000138 





* 


•END**, 



000139 





# 

check 

status; 



000140 


0126 



L7 

EQU 

$ 



000141 





* 


LABEL2 ;»■ *LITEKAL’ (SE) ; 



000142 

0126 

E870 

5345 



LPR 

6*s2U17 



000143 

0128 

Er 40 

0000 

P 


STR 

6 *LABEL2 



000144 

012A 

C840 

0000 

P 


LPR 

4 * ST ATUS 



000143 

012C 

C44G 

0000 

P 


OR 

4,PUESPO 



000146 

012E 

CF40 

0000 

P 


STR 

4*STATU5 



000147 





* 


STATUS SHOULD BE : = STATUS SHOULD BE ’UNION* PUESPO CARD STATUS; 


000148 





* 


•IF’ STATUS SHOULD BE *N£* STATUS WAS 



000149 





* 


’THEN’ 



000150 





* 


•BEGIN* 



000151 

0130 

C940 

0000 

P 


CMR 

4 * STATWA 



000152 

0132 

0901 

0138 



BE 

L9 



oootsb 





* 


ERROR FLAG ERROR FLAG ♦ U 



000154 

0134 

SACO 

0000 

P 


INC 

EKRORF 



000155 

0136 

C840 

0000 

P 


LPR 

$R4*5TATWA 



000156 

0138 

P840 

0000 

P 


LPR 

SR5 * STATUS 



000157 

013A 

PCCO 

FEC7 



LPB 

$B5 *D + 2 



000158 

013C 

PFCO 

0000 

1 


ST d 

$B5 * + $A 



000159 

013E 

P380 

0000 

X 


LNJ 

$B5 *<2V$ER 



000160 

0140 

OF 80 


T 


B 

> + $B 



000161 

0141 

0141 

« 


$A 

PC 

<$ 



000162 

0142 


0000 

X 


PC 

<LABELI 



000163 

0143 




$B 

ORo 

$ 



000164 





* 


LOAD R4 R5 AND REPORT ERROR (STATUS 

WAS* SIATUS SHOULP BE)5 


000165 

0143 

FBCO 

FEBF 



LAb 

7* P + 3 



000166 

0145 

9BCQ 

FECE 



LAB 

I * T10 



000167 

0147 

9F87 




STB 

I *$B7 



000168 

0148 

P3C0 

0000 

P 


LNU 

5 * VKPT 



000169 





* 


PUT TEXT ("* STATUS WAS*")? 



000170 

014A 

FBCO 

FEB8 



LAB 

7,P+3 



000171 

014C 

E840 

0000 

P 


LPR 

6 * STATWA 



000172 

014E 

EF07 




STR 

6 * $87 



000173 

014F 

P3C0 

0000 

P 


LNJ 

5«VKPH 



000174 





* 


PUT HEX (STATUS WAS)* 



000175 

0151 

FBCO 

FEB1 



LAB 

7 *P+3 



000176 

0153 

9BC0 

FEC8 



LAB 

1 *T11 



000177 

0155 

9F 87 




ST B 

I * $B7 



000178 

0156 

P3C0 

0000 

P 


LNJ 

5 * VKPT 



000179 





* 


PUT TEXT( M * STATUS SHUULP BE*")? 


.> 

000180 

0158 

FBCO 

FEAA 



LAB 

7,P + 3 


€ 

000181 

015A 

E840 

0000 

P 


LPR 

6 *STATUS 


I 

000182 

015C 

EF07 




STR 

6 * $B7 



000183 

015P 

P3C0 

0000 

P 


LNJ 

5 * VKPH 



000184 





* 


PUT HEX (STATUS SHGULP BE)5 



000185 





* 


•IF’ ’BITS* ei*I3§ STATUS WAS ’EQ* 

1 





title 


CKMS3**REV G**CARDREADER / PUNCH TV (SAF) 


PAGE 57 


OOOI 80 

000187 

015F 

82C0 

0000 

P 

* 

LB 

•THEN* 

5TaTwA*2*200Q* 


0161 

2000 




000188 

0162 

0586 




BbF 

>L 12 

000189 





* 

PJT NEW TEXT (”OAIA SERVICE RATE*")? 

000190 

0163 

F6C0 

F69F 



LAb 

7 *D+3 

000191 

0165 

96C0 

FECI 



LAb 

1 * T13 

000192 

0167 

9F87 




6 TB 

1 * $ B 7 

000193 

0168 

03C0 

0000 

P 


LNj 

5 *VKPNT 

000194 


016A 



L12 

EQU 

$ 

000195 





# 


•IF* 10 •EO * * HEX* (208A) 

000196 

016A 

6840 

0000 

P 


LOR 

6,10 

000197 

Q16C 

6970 

208 A 



CMR 

6 * = 8330 

000198 

0166 

0906 




BE 

>L14 

000199 





* 


• UR * 10 •EQ* 'HEX* (2088) 

000200 

016F 

6970 

2088 



cm 

6 , = 8328 

000201 

0171 

0981 

007A 



BNE 

L15 

000202 





* 


•AND* READ OR PUNCH *tQ* PUNCH @0© 

000203 





* 


•THEN* 

000204 

000205 

0173 

C840 

0000 

P 

* 

LOR 

4?ReAoCR 

000206 

0175 

C900 

0010 

X 


CMR 

4,<1QW0RD+16 

000207 

0177 

0981 

0074 



BNt 

LI 5 

000208 


0179 



L14 

EQU 

$ 

000209 





* 


•IF* *BITS• 61*12® STAIUS WAS *NE» 

000210 





* 


•BITS* 61*12® STATUS SHOULO BE 

000211 





* 


• THEN* 

000212 

0179 

E2C0 

0000 

P 


LLH 

6 *STATWA 

000213 

017b 

6055 




SCR 

6*5 

000214 

G17C 

604F 




SOR 

6,15 

000215 

0170 

C 2 C 0 

0000 

P 


LLh 

4 * ST ATUS 

000216 

017F 

4055 




SCR 

4,5 

000217 

0180 

404F 




SOR 

4,15 

000218 

0181 

6954 




CMR 

6 * = SR4 

000219 

0182 

0908 




BE 

>L 16 

000220 





* 


PUT NEW TfcXI ("ASCII CODE ERRORS")* 

000221 

0183 

FBCO 

FE7F 



LAb 

7*1)43 

000222 

0185 

96C0 

FEAB 



LAb 

1 * T 1 7 

000223 

0187 

9F87 




ST b 

i *SB7 

000224 

0188 

03C0 

0000 

P 


LNj 

5,VKPNT 

000225 


018A 



L16 

EQU 

$ 

000226 





* 


•IF* READ OR PUNCH *EQ* REAp go® 

000227 





* 


• [HEN • 

000228 





* 


•BEGIN* 

000229 

018 A 

6840 

0000 

P 


LOR 

6 * READ03 

000230 

018C 

6900 

0007 

X 


CMR 

6 *<I0W0RD+7 

000231 

0186 

09A2 




BNt 

>L18 

000232 




* 


•IF* *BITS« ®l,n® STATUS WAS *EQ* l 

000233 





* 


•THEN* 

000234 

018 F 

82C0 

0000 

p 


LB 

ST ATWA * 2 * 0800 » 


0191 

0800 






000235 

0192 

0588 




BBF 

>L19 

000236 

0193 

FBCO 

FE 6 F 



LAb 

7,0 + 3 

000237 

0195 

96C0 

FEA5 



LAb 

1 * T20 

000238 

0197 

9F87 




STb 

1 * SB 7 

000239 

0198 

03C0 

0000 

p 


LNj 

5 * VKPNT ^ ( 

000240 





* 


PUT NEW TEXT ("READ REG tKRUKS")* 

000241 


019A 



L19 

EQU 

S 

000242 




* 


•IF* ’BITS* ®1*10@ STATUS WAS »EQ* 1 

000243 





* 


•then* 

000244 





* 


•BEGIN* 

000245 

019A 

82C0 

0000 

p 


LB 

5(ATWA* l *0400* 


019C 

0400 






000246 

0190 

0593 




BBF 

>L18 

000247 





* 


•IF* RANGfc »NE* 0 

000246 





* 


•THEN** 

000249 

0196 

6840 

FE62 



LDK 

6 , 0+1 

000250 

01 AO 

6909 




BE 2 

6 * >L22 

000251 





* 

PUT NEW TEXT ("STROBE ERRORS”) 

000252 

01A1 

FBCO 

FE61 



LAb 

7,0 + 3 

000253 

01 A3 

9 BC 0 

FEAQ 



LAb 

1, T23 

000254 

01A5 

9F8 7 




STb 

1 * $ B 7 

000255 

01A6 

D3C0 

0000 

p 


LNj 

5 * VKPNT 

000256 





* 


•ELSt* 

000257 

01A8 

QF 88 




b 

>L 1 8 

000258 


01A9 



L22 

EQU 

* 

000259 




* 

PUT NEW TEXT ("L1GH1/OAKK ERRORS” 

000260 

01A9 

FBCO 

FE59 



LAb 

7*0 + 3 

000261 

01A6 

96C0 

FEAO 



LAb 

l * T 2 5 

000262 

QIAO 

9F87 




STb 

1 * SB 7 

000263 

01A6 

D 3 C 0 

0000 

p 


LNJ 

5 * VKPNT 

000264 





* 


•ENO*? 

000265 





* 


•END*; 

000266 


0160 



Lib 

EQU 

$ , „ . 

000267 





* 


•IF* REAP OR PUNCH * 6 Q* PUNCH @0® 

000268 





* 


•THEN* 

000269 





* 


• BEGIN* 

000270 

OlbO 

6840 

0000 

p 


LOR 

6 *REAOOR 

000271 

01 B 2 

6900 

0010 

X 


CMR 

6 *< IOWO.RO+16 

000272 

0164 

0997 




BNt 

>L26 

000273 





# 


•IF* * BITS* @1,11® STATUS WAS *EQ* 1 

000274 





* 


•THEN* 

000275 

0165 

82C0 

0000 

p 


LB 

S IATWA * i » 0800 * 


0167 

0800 






000276 

0168 

0588 




BBF 

>L27 

000277 




* 

PUT NEW TbXT ("PUNCH tCHQ ERRORS”)? 

000278 

0169 

FBCO 

FE49 



LAb 

7,0+3 

000279 

0166 

9BC0 

FE9A 



LAb 

1 , T28 

000280 

0160 

9F87 




STb 

1«SB7 

000281 

01 B 6 

D3C0 

0000 

p 


LNJ 

5 * VKPNT 

000282 

OICO 



L27 

6 QU 

S 

000283 





* 


•if* *bi is* ®i*io® status was *eq* i 

000284 





* 


•THEN* 

000285 

oico 

82C0 

0000 

p 


LB 

ST AT WA * 2 *0400• 


01C2 

0400 






000286 

Q1C3 

0588 




BBF 

LAb 

>626 

000287 

G1C4 

FBCO 

FE3E 



7*0+3 

000288 

01 C 6 

9BCG 

F699 



LAb 

STb 

1 * T30 

000289 

01C8 

9F87 




1 * SB7 

000290 

01C9 

D3C0 

0000 

p 


LNj 

5,VKPNT 

000291 





* 

PUT NEW TfcXT ("ODD PUNCH ECHOS”)? 

000292 





* 


* END* ? 

000293 


QiCB 



L26 

EQU 

$ 




TITLE CRMS3, 

•REV G* 

,CARDRtADER 

/ PUNCH 

TV (SAF) PACE 58 

000294 




* 


•IF* ’BITS* el,90 STATUS WAS »EG* 1 

QQ0295 




# 


•THEN* 

QQG296 




* 


•BEGIN* 

QQQ297 




* 


PUT NEW TEXT 

00029b 

Q1CB 

82C0 0000 

P 


LB 

S f ATWA,2 * 0200• /# V 


01CD 

0200 




I , 

000299 

0 ICE 

058A 



BBF 

>L3l % y 

000300 






( "JAM , RECORD MAINTENANCE PANEL*" >5 

00030i 

OiCF 

FBCO FE33 



LAB 

;,d*3 

000302 

01 P1 

9BC0 FE97 



LAB 

1,T32 

000303 

G1D3 

9F87 



STB 

1 , $B7 

000304 

G1D4 

D3C0 0000 

P 


LNj 

5,VKPNT 

000305 

01 D6 

D3C0 0000 

P 


LNj 

5 % JWR 

000300 




* 


WAIT FOR RETURN? 

000307 




# 


•END* ? 

00030b 


01D8 


L31 

EQU 

$ 

000309 




* 


* IF• *BITS• ei,«@ STATUS WAS *NE» 

000310 




* 


•BITS* ^1,be STATUS SHOULD Bt 

000311 






•THEN* 

000312 

0108 

E2C0 0000 

P 


LLH 

6 ,STATWA 

000313 

0 1 DA 

E570 0001 



AND 

6,52*0001* 

000314 

01DC 

C2C0 0000 

P 


LLH 

4,STATUS 

000315 

0 IDE 

C570 0001 



AND 

4,52*0001 * 

000316 

01E0 

E954 



CMR 

6 ,5$R4 

000317 

01E1 

0901 Q05E 



BE 

L33 

000318 

01E3 

FBCO FE1F 



lab 

7 ,D+3 

000319 

01E5 

9BC0 FE93 



LAB 

1, T 34 

000320 

01E7 

9F87 



STB 

1 ,SB7 

000321 

01E8 

D3C0 0000 

P 


LNu 

5, VKPNT 

000322 




* 


PUT NEW TEXI (’’HUPPER EMPTY*"); 

000323 




* 


•END* 

000324 




* 


* ELSt * 

000325 




* 


•BEGIN* 

000326 

01EA 

0F81 0055 



B 

L33 

000327 


01 EC 


U5 

EQU 

* 

000328 




* 


•IF* *BITS* ei,12e STATUS WAS •NE* 

000329 




# 


•BITS* el,12e STATUS SHOULD BE 

000330 




# 


•THEN* 

000331 

01EC 

E2C0 0000 

P 


LLH 

6 ,STATWA 

000332 

01 EE 

6055 



SCR 

6,5 

000333 

0 1EF 

604F 



SOR 

6,15 

000334 

OlFO 

C2C0 0000 

P 


LLH 

4,STATUS 

000335 

01F2 

4055 



SCR 

4,5 

000336 

01F3 

404F 



SOR 

4,15 

000337 

01F4 

E954 



CMR 

6 ,s*R4 

000338 

01F5 

0908 



BE 

>L35 

000339 




* 


PUT NEW TEXT (*'MARK S£NSE$"M 

000340 

01 F6 

FBCO FEOC 



LAB 

7 ,D+3 

000341 

01F8 

9BC0 FE88 



lab 

1 , T 36 

000342 

01 FA 

9F87 



STB 

1 ,*B7 

000343 

OiFb 

D3C0 0000 

P 


LNJ 

5,VKPNT 

000344 


01FD 


L35 

EQU 

* 

000345 




* 


* 1 F * *BlTS* eiflie STATUS WAS «NE* 

000346 




* 


•BITS* el t He STATUS SHOULD BE 

000347 




* 


•THEN* 

000348 

01FD 

E2C0 0000 

P 


LLH 

6 ,STATWA . N 

000349 

01 FF 

6054 



SCR 

6,4 A 

000350 

0200 

604 F 



SOR 

6,15 

0GG351 

0201 

C2C0 0000 

P 


LLH 

4, ST AT US '4k J 

000352 

0203 

4054 



SCR 

4,4 

000353 

0204 

404F 



SOR 

4,15 

000354 

0205 

E954 



CMR 

6,5$K4 

000355 

0206 

0908 



BE 

>L37 

000356 




* 


PUT NEW TtXT ("4Q COL$«); 

000357 

0207 

FBCO FDFB 



LAB 

7 ,D*3 

000358 

0209 

9BC0 FE7E 



lab 

1,T38 

000359 

020B 

9F87 



STB 

1 ,*B7 

000360 

020C 

D3C0 0000 

P 


LNJ 

5,VKPNT 

000361 


020E 


L37 

EUU 

$ 

000362 




# 


•if* *bits* eitioe status was •eq* i 

000363 




* 


•THEN* 

000364 

020E 

82C0 0000 

P 


LB 

SIATWA,2*0400* 


0210 

0400 





000365 

0211 

0588 



BBF 

>L39 

000366 




# 


PUT NEW TEXT ("51 COL$«); 

000367 

0212 

FBCO FDFO 



lab 

7 , D+3 

000368 

0214 

9BC0 FE78 



lab 

1 , T40 

000369 

0216 

9F87 



STB 

1 , $B 7 

000370 

0217 

D3CQ 0000 

P 


LNJ 

5,VKPNT 

000371 


0219 


L39 

EQU 

$ 

000372 




4 


•IF* ‘BITS* 01,Ve STATUS WAS #eG» 1 

000373 




* 


•THEN* 

000374 

0219 

82C0 0000 

P 


LB 

STATWA,2*0200* 


02 IB 

0200 





000375 

021C 

0588 



BBF 

>L41 

000376 

02 Id 

FBCO FDE5 



LAB 

7 ,D+3 

000377 

02 IF 

9BC0 FE72 



LAB 

l, T42 

000378 

0221 

9F87 



STB 

1, *B7 

000379 

0222 

D3C0 0000 

P 


LNJ 

5,VKPNT 

000380 




4 


PUT NEW TEXT ("EXT CLOCK TRK*">? 

000381 


0224 


L41 

EQU 

$ 

000382 




* 


•IF* * BITS* el,8e STATUS WAS *EQ* l 

000383 




# 


•THEN* 

000384 

0224 

82CO 0000 

P 


LB 

SIATWA,2*0100* 


0226 

0100 





000385 

0227 

0588 



BBF 

>L43 

000386 




# 


PUT NEW TtXT ("READ CHECKS"); 

000387 

0228 

FBCO FDDA 



LAB 

7 ,D«“3 

000388 

022A 

9BC0 FE6F 



LAB 

1 ,T44 

000389 

022C 

9F87 



STB 

1, SB7 

000390 

022D 

D3C0 0000 

P 


LNJ 

5,VKPNT 

000391 


022F 


L43 

EQU 

* 

000392 




# 


•IF* *BITS* 01,70 STATUS WAS *NE* 

000393 




* 


•BITS* 01,70 STATUS SHOULD BE 

000394 




# 


•THEN* 

000395 

02 2 F 

E840 0000 

P 


LDR 

6 ,STATWA 

000396 

0231 

E2D6 



LLH 

6 ,5*R6 

000397 

0232 

6047 



SOR 

6,7 

000398 

0233 

C840 0000 

P 


LDR 

4,STATUS A 

000399 

0235 

C2D4 



LLH 

4,5*R4 4 m 

000400 

0236 

4047 



SOR 

4,7 V_y 

000401 

0237 

E954 



CMR 

6 ,5*R4 

000402 

0238 

0908 



BE 

>L33 
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000403 




# 


PUT NEW TtXI ("ASCII CODES”)? 

000404 

0239 

FBCO F0C9 



lab 

7 ♦ D + 3 

000405 

023B 

9BC0 FE65 



lab 

1 * T 4 6 

000400 

0230 

9F87 



STB 

USB7 

000407 

023E 

03C0 0000 

P 


LNj 

5♦VKPNT 

00040b 




# 


•END*; 

00040V 


0240 


133 

EQU 

S 

000410 




* 


•IF* •BiTS* fel»3e STAIUS WAS *EQ* 1 

00041 1 




* 


•THEN* 

00041 2 

0240 

62C0 0000 

P 


LB 

STATWA*2*0008* 


0242 

0008 





000413 

0243 

0588 



BBF 

>L47 

000414 




# 


PJT NEW TEXT ("CORRECTED MEM ERRS”) 

0004X5 

0244 

FBCO FDBE 



LAB 

/ *D+3 

000416 

0246 

9BC0 FE61 



LAB 

1 * T48 

0004X7 

024b 

9F87 



STB 

USB7 

00041b 

0249 

03C0 0000 

P 


LNJ 

5 ♦ VKPNT 

000419 


024B 


L47 

EQU 

$ 

000420 




* 


•IF* •BITS* 01*2@ STAIUS WAS •EQ•1 

000421 




# 


•THEN* 

000422 

024B 

82C0 0000 

P 


LB 

S T ATWA * 2•0004• 


0240 

0004 





000423 

024E 

0588 



BBF 

>L49 

000424 




# 


PjT NEW TEXT ("NON EXT RESOURCES”)? 

000425 

024F 

FBCO FDB3 



LAB 

7 *D+ 3 

000426 

0251 

9BC0 FE60 



lab 

1 ♦ T50 

000427 

0253 

9F87 



STB 

1 ♦ SB7 

00042b 

0254 

P3C0 0000 

P 


LNj 

5 ♦ VKPNT 

000429 


0256 


149 

EQU 

i 

000430 




# 


• l F • • Bl TS* ewie STAIUS WAS * EQ* 1 

000431 




# 


•THEN* 

000432 

0256 

82C0 0000 

P 


LB 

STATWA,2*0002* 


025b 

0002 





000433 

0259 

0588 



BBF 

>L51 

000434 




* 


PJT NEW TEXT ("BUS PARiTY$"); 

000435 

02 5 A 

FBCO FDA8 



LAb 

7tD*3 

000436 

025C 

9BC0 FE5F 



lab 

1»T52 

000437 

025E 

9F87 



STB 

1 * S B 7 

000436 

02 5 F 

U3C0 0000 

P 


LNJ 

5 *VKPNT 

000439 


0261 


L51 

EQU 

$ 

000440 




* 


•IF* •B1T S• el,06 STAIUS WAS * EQ* \ 

000441 




* 


•THEN* 

000442 

0261 

E840 0000 

P 


LOR 

6 fSTATWA 

000443 

0263 

6B08 



BEVN 

6 * >L9 

000444 

0264 

FBCO FD9E 



lab 

7 , D+ 3 

00044b 

0266 

9BC0 FE5C 



LAB 

1 * T 54 

000446 

026b 

9 F 8 7 



ST b 

1 * $B7 

000447 

0269 

03C0 0000 

P 


LNj 

5 , VKPNT 

00044b 




* 


PJT NEW TEXT ("UNCOR MtM ERR$")5 

000449 




* 

•ENP•i 

1 

000450 




# 

•END*; 


000451 




# 

• END • i 

(OF SEGMENT) 

000452 




* 

•FINISH* 


000453 

0266 

83C8 FD94 


L9 

JMP 

*D 

000454 


0260 


LI 

EQU 

$ 

000455 

0260 

83C0 0000 

P 


JMP 

2K$EX 

000456 





XLUC 

2KSEX 

000457 





CTRL LINK 

2KSEX 

00045b 





XLUC 

VKPT 

000459 





XLUC 

VKPNT 

000460 





XLUC 

VKPH 

000461 





XLUC 

ID 

000462 





XLUC 

STATWA 

000463 





XLUC 

STATUS 

000464 





XLUC 

PUESDO 

000465 





XLUC 

SETT OA 

000466 





XLUC 

LABELl 

000467 





XLUC 

LABEL2 

00046b 





XLUC 

ERRORF 

000469 





XLUC 

READOR 

000470 





XLUC 

IOWORD 

000471 





XLUC 

JIU 

000472 





XLUC 

JPN 

000473 





XLUC 

JWR 

000474 

026F 

OOCB 



END 

2VKJSE , 2VKJSE 

ERR COUNT 
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•REV G* 
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t ZVKJTC 

• LIST 




05/19/78 

1425*3R W 

05/19//8 1423.9 103473Q0U0 


GQOQQi 






TITLE 

ZVKJTC* * REV 00* 


000002 


OOOC 




XDEF 

JGT 


000003 


0007 




XDEF 

ZVKJTC 


000004 


0008 



ZKCOM 

COMM 

8 

of % 

000005 

0000 

0000 



D 

RESV 

7*0 


000006 


0007 



ZVKJTC 

EQU 

$ 


000007 

0007 

8F00 

0001 

K 


SAVE 

<ZKC0M*l,Z*Q0il* 



0009 

0011 







000006 





* 

•BEGIN* 



000009 

OOOA 

0F8 1 

0096 



B 

LI 


000010 





* 

»INTEGER * N5 


oooon 

OOOC 

DFCO 

FFF3 


JOT 

STB 

5 *D 


000012 





# 

N ; = 

o; 


000013 

OOOE 

8740 

FFF2 



CL 

D+i 


000014 





* 

READ 

OR PUNCH ;pFALSE? 


000015 

0010 

8740 

0000 

P 


CL 

READOR 


000016 





* 

RESET 

RANDOM DATA (CLEAR); 


000017 

0012 

FBCO 

FFEF 



lab 

7 ,D+2 


000016 

0014 

9BC0 

0000 

P 


LAB 

1 * SETT OA 


000019 

0016 

9F87 




STB 

1, $B7 


000020 

0017 

D3C0 

0000 

P 


LNJ 

5 *VKRRD 


000021 

0019 

FBCO 

FFE8 



LAB 

7 * D + 2 


000022 

QQ1B 

96C0 

0000 

P 


lab 

1*BUFF1 


000023 

00 ID 

9F87 




STB 

1«$B7 


000024 

001E 

6C54 




LDV 

6,84 


000025 

001F 

EF40 

FFE3 



stk 

6, DO 


000026 

0021 

4C5Q 




LDV 

4*80 


000027 

0022 

CF40 

FFE1 



STR 



000026 





* 

FILL 

BUFFER (BUFFER 1*080**HEX»(FFF))5 


000029 

0024 

0870 

OFFF 



LDR 

5,54095 


000030 

0026 

PF 40 

FFDE 



STR 

5 ,DO 


000031 

0028 

D3C0 

0000 

P 


LNJ 

5 * JF B 


000032 

002A 

FBCO 

FFD7 



LAB 

7,DO 


000033 

002C 

9BC0 

0000 

P, 


LAb 

1«BUFF 2 


000034 

002E 

9F87 




STB 

1 *$B7 


000035 

002 F 

6C50 




LDV 

6,80 


000036 

0030 

EF40 

FFD2 



STR 

6 ,DO 


000037 

0032 

LF40 

FFD1 



STR 

6 *D + 4 


000036 





* 

FILL 

BUFFER (BUFFER 2 * 080 *»HEX *(000)); 


000039 

0034 

8740 

FFDO 



CL 

DO 


000040 

0036 

D3C0 

0000 

P 


LNJ 

5 , J F B 


000041 

0038 

6C01 



L3 

LDV 

6,1 


000042 

0039 

EF40 

0000 

P 


STR 

6 ,CARDSR 


000043 





* 

•FOR* 

CARD COUNT ;= 1 'STEP* 1 ’UNTIL* 99 


000044 





* 

•DO* 



000045 





* 

•BEGIN* 


000046 

0030 

E840 

0000 

P 

L4 

LDR 

6,CARDSR 


000047 

003D 

6E9D 




ADV 

6,-99 


000046 

00 31 

6A01 

0059 



BGZ 

6 ,L5 


000049 





X 


•IF* CARD COUNT *LT• 81 


000060 





# 


•THEN* 


000051 





* 


•BEGIN* 


000052 

0040 

E840 

0000 

P 


LDR 

6,CARDSR 


000053 

0042 

6D51 




CMV 

6,61 


000054 

0043 

089F 




BAGE 

>L6 

x" . ■'x- 

000055 





* 


•IF* •BIT6* @i,Oe CARD COUNT *EQ» 1 


000056 





# 


•THEN* 


000057 





* 


* BEGIN» 

^ ,#• 

000056 

0044 

6B0D 




BEVN 

6,>L7 


000059 

0045 

6EFD 




ADV 

6,-3 


000060 





* 


BUFFER2 @CARDC0uNT-3&;50i 


000061 

0046 

9856 




LDR 

1,5$R6 


000062 

0047 

8710 

0000 

X 


CL 

<BUFF2,S>R1 


000063 

0049 

9840 

0000 

P 


LDR 

1,CARDSR 


000064 

0Q4B 

1EFF 




ADV 

1,-i 


000065 





* 


BUFFER2 eCARDCOUNT-l^JsCARDCOUNT; 


000066 





# 


^ * END* 


000067 

004C 

E840 

0000 

P 


LDR 

6,CARDSR 


000066 

004E 

EF10 

0000 

X 


STR 

6,<BUFF2.$R1 


000069 





# 


•ELSE* 


000070 





* 


•BEGIN* 


000071 

0050 

OF AA 




B 

>L8 


000072 

0051 

9£4G 

0000 

p 

L7 

LDR 

1,CARDSR 


000073 

0053 

9240 

FFAD 



SUB 

1 ,D+1 


000074 





* 


BUFFEKi ^ChRDCOunT-N^J^O? 


000075 

0055 

6710 

0000 

X 


CL 

<BUF FI•$R1 


000076 

0057 

9840 

0000 

p 


LDR 

1 ,CAKDSR 


000077 

0059 

1EFF 




ADV 

1,-1 


000076 





* 


BUFFER 1 feCARDCQUNT-10isCARDCOUNT; 


000079 

005A 

E840 

0000 

p 


LDR 

6,CARDSR 


000080 

005C 

EF10 

0000 

X 


STR 

6,<BUFF1.$R1 


000081 





* 


N ;= 3? 


000082 

005E 

6C03 




LDV 

6,3 


000083 

005F 

EF40 

FFA1 



STR 

6 ,D+ 1 


000084 





* 


•END* ; 


000085 







•END* 


000086 





* 


•else* 


000087 

0061 

0F99 




B 

>L8 


000086 


0062 



L6 

EQU 

$ 


000089 





# 


• if* *b iis* ei,o@ card count *to* 1 


000090 





* 


•THEN* 


000091 

0062 

E840 

0000 

p 


LDR 

6,CARDSR 


000092 

0064 

6B0C 




BEVN 

6,>L9 


000093 





# 


FILL WITH RANDOM DATA (BUFFER 2000,80) 


00009* 

0065 

FBCO 

FF9C 



LAb 

7,DO 


000095 

0067 

9BC0 

0000 

p 


LAB 

1,BUFF2 


000096 

0069 

9F87 




STB 

1, $B7 


000097 





* 


•ELSE* 


000098 

006A 

4C50 




LDV 

4,80 


000099 

0066 

CF40 

FF97 



STR 

4, DO 


000100 

006D 

D3C0 

0000 

p 


LNJ 

5, VKFRD 


000101 

006F 

0F8B 




B 

>L8 


000102 

0070 

FBCO 

FF91 


L9 

LAB 

7 ,DO 


000103 

0072 

9BC0 

0000 

p 


LAb 

1,BUFFI 


000104 

0074 

9F87 




STb 

1,$B7 


000105 





# 


FILL WITH RANDOM DATA (BUFFER 1000,80)5 


000106 

0075 

6C50 




LDV 

6,80 


000107 

0076 

EF40 

FF8C 



STR 

6,DO 

m 

000108 

0076 

D3C0 

0000 

p 


LNJ 

5,VKFRD 


000109 


007A 



L8 

EQU 

$ 


000110 





* 


GENERATE CHECKSUMS (Rfc.AD OR PUNCH)5 


000111 

007A 

FBCO 

FF87 



LAb 

7 , p+2 
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000112 

007C 

E840 

0000 

P 


LOR 

6 ,READUK 

000 113 

007E 

EF 07 




STR 

6 , $B 7 

000114 

00 7 F 

03C0 

0000 

P 


LNJ 

5 «JGC 

000115 





* 


•IF* CARDCOUNT »tQ* 1 

000116 





# 


•THEN• 

000117 

0081 

E840 

0000 

P 


LOR 

6 ,CARDS* 

OQOUb 

0083 

6001 




CMV 

6,1 

000119 

0084 

0990 




BNE 

>L 11 

000120 

0085 

FBCQ 

FF7C 



LAb 

f , D + 2 

000121 

0087 

9BC0 

0000 

P 


LAb 

1,BUFFI 

000122 

0089 

9F87 




stb 

1 * $B7 

000123 

008 A 

4C54 




LDV 

4,84 

000124 

008B 

CF40 

F F 7 7 



STR 

4,D*3 

000125 

OObD 

5C50 




LDv 

5,80 

000126 

008E 

OF 40 

FF75 



STR 

5, D+4 

000127 





* 


FILL BUFFEK (BUFFER 1,080,0) 

000128 

0090 

8740 

FF74 



CL 

D+5 

000129 

0092 

03C0 

0000 

P 


LNO 

5, JFb 

000130 





* 

•END*; 


000131 

0094 

8AC0 

0000 

P 

LI 1 

INC 

CARDSK 

000132 

0096 

OF 81 

FFA4 



b 

L4 

000133 


0098 



L5 

EQU 

$ 

000134 





* 

CjENEKATE CHECKSUMS (READ OK PUNCH) i 

000135 





* 

•END*; 


000136 

0098 

FbCO 

FF69 



LAb 

UD+Z 

000137 

009A 

E840 

0000 

P 


LDR 

6 ,KEADOR 

00013b 

009C 

EF07 




STR 

6 , $ b 7 

000139 

0090 

03C0 

0000 

P 


LNJ 

6 , JGC 

000140 





# 

• END •f 

(OF SEGMENT) 

000141 





* 

•FINISH* 


000142 

009 F 

83C8 

FF 60 



JMP 

*D 

000143 


OOAI 



LI 

EQU 

$ 

000144 

OOAi 

83C0 

0000 

P 


JMP 

ZKSEX 

000145 






XLQC 

2KSEX 

000146 






CTRL LINK 

ZKSEX 

000147 

000148 






XLUC 

XLUC 

VKRRD 

VKFRD 

000149 






XLUC 

SETT OA 

000150 






XLUC 

CARDSK 

000151 






XLQC 

KEADOR 

OOOI52 






XLUC 

bUFFl 

000153 






XLOC 

BUFF 2 

000154 






XLUC 

JGC 

000155 






XLUC 

JFb 

000156 

OOA3 

0007 




END 

ZVKJTC,2VKJTC 

0000 ERR COUNT 
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PAGE 62 


E ZVKJTD 
OOOUOi 
000002 
000003 
000U04 
000006 
000006 
000007 
000006 
000009 
000010 
000011 
000012 

000013 

000014 

000016 

000016 

000017 

ooooib 

000019 

000020 

000021 

000022 

000023 


0004 

0000 

0001 

0002 

0003 

OOOF 

OOOA 

0008 

0000 

OOOA 

8F00 0001 
0011 


05/19/78 1425,3R W 05/19/78 1423,9 

TITLE Z VK J10 * * REV 00 • 

XDEF (TI ME 1 * 0 + 4) 

XDLF (BASE,D) 

XDEF ($UM,D+i) 

XDEF (T OTAL, D*2) 

XDEF (RESP0N,D+3) 

XDfcF JTD 

XDEF ZVKJTD 

ZKCQM COMM 8 

D RE5V 10,0 

ZVKJTD EQU $ 

SAVE <ZKCOM+1tZ•0011' 


541980000 


» NTEGER* BASE? (BASE OF TIMING DELAY) 

• NTEGER* SUM? (SjM OF ERROR TIMMING) 

1 INTEGER* TOTAL? (TOTAL OF RANDOM DELAYS) 
•INTEGER* RESPONSE; (RESPONSE OF DELAY) 
•INTEGER* TIME1* TIME2; (OLD DELAY TIMES) 


0F81 002F 


*4 RANDOM OR FIXED TIMING DELAY; 

#4; 

* 'PROCEDURE* TIME DELAY; 

* 'BEGIN* 

B LI 


000024 

OOOF 

DFCO 

FFF6 


JTD 

STB 

5,D*6 

000025 





* 

TIME1 ; 

= TIME2 * 

000026 

0011 

E840 

FFF3 



LDR 

6 ,D + 5 

000027 

0013 

EF40 

FFFO 



STR 

6,D*4 

000028 




P 

* 

TIME2 : 

5 ZHRTCI? 

000029 

0015 

C840 

0000 


LDR 

4,ZHRTCI 

000030 

0017 

CF40 

FFED 



STR 

4,D*5 

000031 





* 

•IF* BASE •EQ• 0 

000032 





* 

•THEN* 


000033 





# 

•BEGIN* 

000034 

0019 

D840 

FFE6 



LDR 

5 ,D 

000035 

0016 

5989 




BNEZ 

5 * >L3 

000036 





* 


ZHRTCC ; = 

000037 

001 c 

F84Q 

FFE6 



LDR 

7,D + 3 


000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 

000058 

000059 

000060 

000061 

000062 

000063 

000064 

000065 

000066 

000067 

000068 

000069 

000070 

000071 






# 


•END* 

0021 

FF40 

0000 

P 


STR 

7,ZHRTCI 





* 


•ELSE* 





* 


•BEGIN* 

0023 

0F92 




B 

>L4 

0024 

E840 

FFDB 

•V 

L3 

LDR 

6 ,D 

0026 

E570 

3ECD 


* 

AND 

6,*16077 
BASE ? = 

0028 

EA70 

5555 



ADD 

6, = 21845 

002 A 

6061 




SAR 

6,1 

002B 

EF40 

FFD4 


# 

STR 

6 ,D 

ZHRTCC ; 

002D 

E570 

07 CO 



AND 

6, = 1984 

002 F 

6066 




SAR 

6,6 

0030 

6E67 




ADy 

6,103 

0031 

EF40 

0000 

P 

* 

STR 

6,ZHRTCC 
ZHRTCI ; 

0033 

EF40 

0000 

P 


STR 

6,ZHRTCI 





* 


•end*; 

0035 

0035 

0004 



L4 


$ 

4 




# 

* 

CLOCK on; 

keep waiting; 


0036 



L5 

EQU 

$ 




* 


•IF* ZHRTCC *G 





* 


•THEN* 





* 


•GO TO* 1 

0036 

E840 

0000 

P 


LDR 

6,ZHRTCC 

0038 

6D64 




CMV 

6,100 

0039 

0A7D 




BAG 

>L5 

0Q3A 

0005 




DC 

5 


ZHRTCC ; = RESPONSE 
7 , D + 3 
7,100 
7,ZHRTCC 

ZHRTCi ;= ZHRTCC; 


64 ♦ 103;(NEXT DELAY) 


000072 





* 

000073 





* 

000074 





Ik 

000075 

000076 

003 B 

83C6 

FFCA 


* 

000077 


003D 



LI 

000078 

000Q79 

003D 

83C0 

0000 

P 


000081 






000082 

000083 

003F 

OOOA 





0000 ERR COUNT 
§L 


CLOCK, off; 

•END*; (OF PROCEDURE) 

:p¥8ii H . ,0F 5eGMtNT ’ 

JMP *D+6 

EDO $ 

JMP ZKSEX 

XLOC ZKSEX 

CTRL LINK ZKSEX 

XLOC ZHRTCI 

XLOC ZHRTCC 

END ZVKJTD,ZVKJTD 


C 
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ZVKJwR.LIST 
00000 j, 

000002 

000003 

000004 

000005 0000 

000006 0004 

000007 0003 


00000b OOOE 
oou 

000009 0017 

ooooio ooib 
ooib 


000011 

00001c 

000013 

000014 

000015 

000016 

000017 

ooooib 

000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
00002b 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
00003b 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
00004b 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
00005b 
000057 
00005b 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
00006b 
000069 
0000 tRR C 
&L 


5045 2027 
5252 4941 
2052 4554 
4E27 2C20 
454E 2052 
4459 2400 

2 A2A 2A20 
4541 4B20 
2A2A 2A24 


05/19/78 1425.3R W 05/19/78 1424.0 < 

TITLE ZVKJWR, *KEV 00* 

XDtP JWR 

XDEF ZVKJWR 

ZKCOM COMM 8 

0 RESV 4,0 

T5 DC 35 

TEXT 'TYPE ••CARRIAGE RET* 


•URN* *, WHEN READY$* 


4645800U0 


****** BREAK *****$* 


<ZKCQM+1,Z*0011* 


DPCO FFDA 


E840 FFC4 

6D0D 

090B 


PBCO FFCO 
9BC0 FFD3 
9P 87 

D3C0 0000 
83 C0 0000 


83C8 FFB5 
0Q4C 

83C0 0000 


•BEGIN* 

•INTEGER* TEMP l CHARACTER5 
STB 5,D 

•IF* ZVDTTY *EJ* 0 






* 

• 

THEN* 

0027 

E840 

0000 

P 


LDR 

6 ,ZV$T T Y 

0029 

6985 




BNtZ 

6 ,>L3 




* 

T 

EMP CHARACTER ;= •HEX• (ODOO); 

002 A 

C870 

ODOO 


* 

**llk 

4,53328 

002C 

CF4Q 

PFD4 



ST R 

4,D*1 

002E 

PBCO 

FFD3 


L3 

LAb 

7 ,D + 2 

0030 

9BC0 

FFD 3 



LAb 

1 ,T5 

0032 

9F87 




STB 

1 *$B7 

0033 

D3C0 

0000 

P 


LNJ 

5,VKPNT 




* 

PUT NEW TEXT ("TYPE * CARR I AGE RETURN* 

0035 

PBCO 

FFCC 



LAB 

7 , D ♦ 2 

0037 

9BC0 

FFC9 



LAB 

1 ,D+ 1 

0039 

9F87 




ST b 

1, $B7 

003A 

D3C0 

0000 

P 


LNJ 

5,VKGC 


004E 

COUNT 


GET CHAR (TEMP CHARACTER); 

•IF* TEMP CHARACTER * NE• »HtX* (OD) 

•THEN* 

•BEGIN* 

LDR 6 ,D+1 

CMV 6,13 

BE >L6 

•IF* 

TEMP CHARACTER »EU* 0 
•THEN* 

•BEGIN* 

0NEZ 6,>L3 

PUI NEW TEXT ('»***** BREAK *****5"); 

LAB 7,D+2 

LAb 1,T8 

STB 1,$B7 

LNU 5,VKPNT 

*GU TO• ASK NEXT; 

JMP ASKNEX 

•END*; 

•GO TO* wait; 

•end*; 

•END*; 

•END*; 

•FINISH* 

JMP *D 

EQU $ 

JMP ZKSEX 

XLOC ZKSEX 

CTRL LINK ZKSEX 

XLOC VKPNT 

XLOC VKGC 

XLOC ZVSITY 

CTRL LINK ZVSTT 

XLOC ASKNEX 

END ZVKJWR,ZVKJWR 
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t ZVKJLB 

• LIST 





05/19/78 

1427#1R W 

05/19/78 1422.3 2481930UU0 




QOQOOl 







TITLE 

ZVKJLB, * REV 00» 




OOOQOZ 


0097 





XDEF 

KJLB 




000003 


0092 





XPEF 

ZVKJLB 



a 

000004 


0008 




ZKCOM 

COMM 

8 



1 & 

OOOOOJ? 

0000 

0000 




P 

RESV 

6,0 




000006 

0006 

OOOC 




T3 

PC 

12 




000007 

0007 

454C 

4543 

5452 



TEXT 

•ELECTRONICS** 





OOOA 

4F4£ 

4943 

5324 








000008 

0000 

0012 




T4 

PC 

18 




000009 

oooe 

4649 

5240 

5741 



TEXT 

•FIRMWARE REVISIONS* 





0011 

5245 

2052 

4556 










4953 

494F 

4L24 








000010 

0017 

Q01E 




T7 

PC 

30 




oooon 

0018 

2C20 

4153 

4349 



TEXT 

*, ASCII NOT SET ON* 





OOib 

4920 

4E4F 

5420 










5345 

5420 

4F4E 








000012 

0021 

2049 

4E49 

5449 



TEXT 

* INITIALIZES* 





0024 

414C 

495 A 

4524 








000013 

0027 

0022 




T9 

PC 

34 




000014 

0028 

2C20 

4249 

4E41 



TEXT 

*, BINARY NOT SET 0* 





002b 

5259 

2Q4E 

4F54 










2053 

4554 

204F 








000015 

0031 

4E20 

434F 

4E46 



TEXT 

•N CONFIGURATIONS* 





0034 

4947 

5552 

4154 










494F 

4E24 









000016 

0039 

0013 




Til 

PC 

19 




000017 

003A 

2C20 

5441 

5 34B 



TEXT 

•, TASK NOT CLEARED* 





0030 

204E 

4F54 

2043 










4C45 

4152 

4544 








000018 

0043 

2400 





TEXT 

’ S * 




000019 

0044 

0013 




713 

DC 

19 




000020 

0045 

2C20 

5441 

534B 



TEXT 

», TASK NOT CLEARED* 





0048 

204E 

4F54 

2043 










4C45 

4152 

4544 








000021 

004E 

2400 





TEXT 

*S* 




000022 

004F 

0019 




T 17 

PC 

25 




000023 

0050 

4341 

4E4E 

4F54 



TEXT 

•CANNOT SET PROGRAM* 





0053 

2053 

4554 

2050 










524F 

4752 

4140 








000024 

0059 

2045 

4A45 

4354 



TEXT 

* EJECTS* 





005C 

2400 










000025 

0050 

0015 




T 19 

PC 

21 




000026 

005L 

4341 

4E4E 

4F54 



TEXT 

•CANNOT SET H0LLER1* 





0061 

2053 

4554 

2048 










4F4C 

4C45 

5249 








000027 

0067 

5448 

2400 




TEXT 

* THS» 




000028 

0069 

OOIB 




T21 

DC 

27 




000029 

006A 

4341 

4E4E 

4F 54 



TEXT 

•CANNOT SET PUNCH F* 





0060 

2053 

4554 

2050 










554E 

4348 

2046 








000030 

0073 

4545 

4420 

5245 



TEXT 

•EEP REAPS* 





0076 

4144 

2400 









000031 

0078 

0015 




T23 

PC 

21 




000032 

0079 

4341 

4E4E 

4F54 



TEXT 

•CANNOT SET TEST MO* 





007C 

2053 

4554 

2054 










4553 

5420 

4D4F 








000033 

0082 

4445 

2400 




TEXT 

»DE$* 




000034 

0084 

001A 




T25 

PC 

26 




000035 

0085 

4341 

4E4E 

4F54 



TEXT 

•CANNOT SET EJECT 0» 





0088 

2053 

4554 

2045 










4A45 

4354 

204K 








000036 

008t 

4E20 

4552 

524F 



TEXT 

»N ERRORS* 





0091 

5224 










000037 


0092 




ZVKJLB 

EQu 

S 




000038 

0092 

8r00 

0001 


K 


SAVE 

<ZKC0M+1,Z*0011* 





0094 

0011 










000039 






* 

•BEGIN* 





000040 

0095 

0F81 

017F 




B 

LI 




000041 






# 

• INTEGER 1 TEMP; 




000042 

0097 

PFCQ 

FF68 



kjlb 

STB 

5,D 




000043 






# 

ERROR 

LABEL J- 'LITERAL* (BD? 




000044 

0099 

E870 

4231 




LPR 

6*516945 




000045 

009b 

EF40 

0000 


P 


STR 

6*LABEL1 




000046 






# 

PUT NEW TEXT ("ELECTRONICSS") * 




000047 

0090 

FBCO 

FF64 




LAB 

7 ,D + 2 




000048 

009F 

VJCQ 

FF66 




lab 

1 • T3 




000049 

OOAl 

9F87 





STB 

1,SB7 




000050 

00A2 

P3C0 

0000 


P 


LNJ 

5 * VKPNT 




000051 






# 

CHECK 

STATE (SHOULD BE OFF); 




000052 

00A4 

FBCO 

FF5D 




LAB 

7.D*2 




000053 

OOA6 

8707 





CL 

SB7 




000054 

0QA7 

P3C0 

0000 


P 


LNJ 

5 « JCS 




000055 






* 

TEMP 

; 5~•HEX* (FFFF)5 




000056 

00A9 

6CFF 





LP V 

6,-1 




000057 

OOAA 

LF40 

FF 56 




STR 

6,D+1 




000058 

OOAC 

FBCO 

F F 5 5 




LAd 

7,D + 2 




000059 

OOAL 

9BC0 

FF52 




LAB 

1,D+1 




000060 

0060 

9F87 





STB 

1 » SB7 




000061 






* 

1N0UT 

(TEMP, OUTPUT CONFIGURATION 4?U@) 5 

(OUTPUI 

GARBAGE) 


000062 

0061 

OFOO 

OOOB 


X 

N1 

NOP 

<IQWORD+l1 




000063 

0063 

C840 

FFFE 




EPR 

4.NU1 




000064 

0065 

CF40 

FF40 




STR 

4 ,D + 3 




000065 

0067 

D3C0 

0000 


P 


LNJ 

StJIO 




000066 

Q0B9 

FBCO 

t" F48 




lab 

7 * P+2 




000067 

0066 

9BC0 

FF45 




lab 

1,0+1 




000068 

0060 

9F87 





STB 

1 * SB7 




000069 






* 

INQUT 

(TEMP, OUTPUT TASK GU@) ? 

(0UTPU1 

GARBAGE) 


000070 

OOBE 

OFOO 

0005 


X 

N2 

NOP 

<IQWORD+5 




000071 

OOCO 

£840 

FFFE 




LPR 

6 »N2 +1 




000072 

00C2 

£F4Q 

FF40 




STR 

6 ,D+3 




000073 

00C4 

D3C0 

0000 


p 


LNJ 

5 * J10 




000074 

00C6 

FBCO 

FF3B 




LAB 

7,D+2 




000075 

0QC8 

9BC0 

0000 


p 


LAB 

1*BINARY 




000076 

OOCA 

9F87 





STB 

1 * SB7 




000077 






# 

INOUI 

(INITIALIZE, OUTPUT CONTROL G0@)? 




000078 

00C6 

A6C0 

0000 


p 


lab 

2,IOWORD 



jf . N 

000079 

OOCO 

AFCO 

FF 35 




STB 

2,P+3 



if 

000080 

OOCF 

D3C0 

0000 


p 


LNJ 

5 , JIQ 



I J 

000081 






* 

PUT NEW TEXT ("FIRMWARE REVISIONS"); 




000082 

0001 

F6C0 

FF30 




lab 

7,P+2 




000083 

0003 

9BC0 

FF39 




LAB 

1 ,T4 




000084 

0005 

9F87 





STB 

i,SB7 
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000085 

OOD6 

03C0 

0000 

P 


LNJ 

5 * VKPNT 



000086 

0008 

F6C0 

FF29 



LA b 

7*0*2 



000087 

OOOA 

9BC0 

FF26 



LAB 

1 *0*1 



000088 

oooc 

9F67 




STB 

1 *$B7 



000089 





* 

INOUT 

(TEMP*INPUT FIRMWARE REV @0 @)* 



000090 

0000 

OFOO 

0003 

X 

N3 

NOP 

<I0WQRD*3 



000091 

OOOF 

E840 

FFFE 



LOR 

6 * N3*1 



000092 

00 E1 

EF40 

FF21 



STR 

6*0*3 



000093 

00E3 

03C0 

0000 

P 


LNJ 

5 * JIO 



000094 





* 

TEMP ; 

s ’BITS' TEMP? (RIGHT JUSTIFY) 



000095 

00E5 

E2C0 

FF1B 



LLH 

6 *0*1 



000096 

00E7 

EF40 

FF19 



STR 

6 *0*1 



000097 





# 

PUT HEX (TEMP ); 



000096 

00E9 

FBCO 

FF18 



LAb 

7*0*2 



000099 

OOEfcJ 

EF 07 




STR 

6 * $B7 



000100 

OOEC 

03C0 

0000 

P 


LNJ 

5 * VKPH 



pooioi 





* 

•IF* 10 *EQ* 'HEX• (2008) 



000102 





* 

•THEN* 




000103 





# 

•BEGIN 

l* 



000104 

00 EE 

E840 

0000 

P 


LOR 

6*10 



000105 

OOFO 

E970 

2008 



CMR 

6 * = 8200 



000106 

OOF2 

0981 

0056 



BNE 

L5 



000107 

00F4 

FBCO 

FFOO 



LAb 

7*0*2 



000106 

00 F6 

9BC0 

FFOA 



LAB 

1 *0*1 



000109 

00F8 

9F67 




STB 

1 * $B7 



ooouo 





* 


INOUT (T EMP* INPUT CONF1GURATIUN @0g) ; 



oaom 

OOF 9 

OFOO 

OOOA 

X 

N4 

NOP 

<IOWORO*10 



000112 

0GF6 

C84Q 

FFFE 



LOR 

4 * N4*1 



000113 

OOFO 

CF40 

FF05 



STR 

4*0*3 



000114 

OOFF 

03C0 

0000 

p 


LNJ 

5 * J10 



000115 





* 


•IF* TEMP *NE ’ 0 



000116 





# 


* THEN* 



000117 





# 


•BEGIN* 



000116 

0101 

E840 

FEFF 



LOR 

6 *0*1 



000119 

0103 

6901 

0012 



BEz 

6 * L6 



000120 





* 


LABEL 2 J* ’LITERAL* (AM) ? 



000121 

0105 

C870 

414D 



LOR 

4**16717 



000122 

0107 

CF40 

0000 

p 


STR 

4 * LABEL2 



000123 

0109 

0840 

0000 

p 


LOR 

$K5*SETTQA 



000124 

010 b 

C840 

FEF5 



LOR 

$R4,0*1 



000125 





* 


LOAD R4 R5 (TEMP* CLEAR)? 



000126 

0100 

03C0 

0000 

p 


LNJ 

5 * JRE 



0p0127 





# 


REPORT ERROR? 



000126 





* 


PUT TEXT ("* ASCII NOT SET ON 

INITIALIZES”) ? 

(MDC) 

000129 

010F 

FBCO 

FEF2 



LAb 

7*0*2 



000130 

0111 

9BC0 

FF05 



LAb 

1 * T7 



000131 

0113 

9F87 




STB 

1 « SB7 



000132 

0114 

03C0 

0000 

p 


LNJ 

5 * VKPT 



000133 





* 


•END* ? 



000134 





**; 





000135 





** 

CONFIGURATION TEST - CAROREAUEK5 



000136 





**; 





000137 

0116 

FBCO 

FEEB 


L6 

LAB 

7*0*2 



000138 

0118 

9BC0 

0000 

p 


LAB 

1*BINARY 



000139 

011 A 

9F67 




ST b 

1 *$B7 



pop 140 





# 


INOUT (blNARY MODE* OUTPUT CONFIGURATION gOe) ? 


000141 

oub 

OFOO 

OOOB 

X 

N5 

NOP 

<IOWORO*11 



000142 

0110 

E840 

FFFE 



LOR 

6 *N5*i 



000143 

011 F 

EF40 

FEE 3 



STR 

6*0*3 



000144 

0121 

03C0 

0000 

p 


LNJ 

5 • J10 



000145 

0123 

FBCO 

FEDE 



LAB 

7,0*2 



000146 

0125 

9BC0 

FEOB 



LAb 

1 *0*1 



000147 

0127 

9F67 




STB 

l*$B7 



000148 





* 


INOUT (TEMP,INPUT CONFIGURATION @0@) ? 



000149 

0126 

OFOO 

OOOA 

X 

N6 

NOP 

<IOWORO*10 



000150 

012 A 

E840 

FFFE 



LOR 

6 *N6*1 



000151 

012C 

EF40 

FE06 



STR 

6*0*3 



000152 

012 b 

03C0 

0000 

p 


LNj 

5 * J10 ^ 



000153 





# 


•IF* TEMP *NE* • HEX * (80U0) 



000154 





* 


•THEN* 



OQ0155 





* 


•BEGIN* 



000156 

0130 

E640 

FEDO 



LOR 

6 *0*1 



000157 

0132 

E970 

8000 



CMR 

6 **-32768 



000156 

0134 

0901 

0001 



BE 

L8 



000159 





* 


LABEL 2 J= ’LITERAL* (BM) ? 



000160 

0136 

C870 

4240 



LOR 

4**16973 



000161 

0136 

CF4Q 

0000 

p 


STR 

4,LABEL2 



000162 

013A 

0840 

0000 

p 


LOR 

SR5 * SET T OA 



000163 

013C 

C840 

FEC4 



LOR 

$R4,0*1 



000164 





# 


LOAD R4 R5 (TEMP* CLEAR) ? 



000165 

013b 

03C0 

0000 

p 


LNJ 

5 * JRE 



000166 





* 


REPORT ERROR? 



000167 





* 


PUT TEXT (”, BINARY NjT SET ON 

CONFIGURATIONS”) 

i ? (MOO 

000166 

0140 

FBCO 

FECI 



LAb 

7*0*2 



000169 

0142 

9BC0 

FEE4 



LAB 

i*T9 



000170 

0144 

9F67 




STB 

1 * SB7 



000171 

0145 

03C0 

0000 

p 


LNj 

5 * VKPT 



000172 





* 


* END* ? 



000173 





* 

•ENO* 




000174 





# 

•else* 




000175 





* 

•BEGIN* 



000176 





**; 





000177 





** 

TASK WORD TESTS - PUNCH; 



000178 





*#; 





000179 

0147 

OF 6 1 

OOBE 



B 

L8 



000180 


0149 



L5 

EQU 

$ 



000181 





Ik 


ERROR LABEL J= 'LITERAL* (B2)i 



000182 

0149 

£870 

4232 



LOR 

6**16946 



000183 

014b 

EF40 

0000 

p 


STR 

6 *LA8EL1 



000184 

0140 

FBCO 

FEB4 



LAb 

7*0*2 



000185 

014 F 

9BC0 

FEB1 



LAB 

1 *0*1 



000186 

0151 

9F 87 




STB 

1*SB7 



000187 





# 


INOUT (TEMP * INPUT TASK @0@) ? (GARBAGE 

BEEN CLEARED) 


000188 

0152 

OFOO 

0004 

X 

N7 

NOP 

<IOWORO*4 



000189 

0154 

C840 

FFFE 



LOR 

4 *N7*1 



000190 

0156 

CF40 

FEAC 



STR 

4*0*3 



000191 

0158 

D3C0 

0000 

p 


LNJ 

5 * J10 



000192 





* 


•IF* TEMP • NE* 0 



000193 





* 


•THEN* 



000194 





# 


•BEGIN* 



000195 

015A 

E840 

FEA6 



LOR 

6 *0*1 



000196 

015C 

6901 

0012 



BEz 

6 ,HO 



000197 





* 


LABEL 2 J* ’LITERAL* (TO ? 





TITLE 


CRMS3 **REV G* *CARDRtADER / PUNCH TV (SAP) 
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000198 

015L 

C870 

5443 



000199 

0160 

CF40 

0000 

P 


000200 

0162 

0840 

0000 

P 


000201 

0164 

C840 

FE9C 



000202 





* 

000203 

0166 

03C0 

0000 

P 


000204 





it 

000205 

0168 

FBCO 

FE99 



000206 

016A 

9BC0 

FECE 



000207 

016C 

9F87 




000208 

016D 

03C0 

0000 

P 


000209 





* 

000210 





It 

000211 

016F 

FBCO 

FE92 


no 

000212 

0171 

9BC0 

0000 

P 


000213 

0173 

9F87 




0Q0214 





it 

000215 

0174 

OFOO 

0005 

X 

N8 

000216 

0176 

E840 

fffe 



000217 

0178 

EF40 

FE8A 



000218 

017A 

D3C0 

0000 

P 


000219 

017C 

FBCO 

FE85 



000220 

01 7t 

9BC0 

FE82 



000221 

0180 

9F87 




000222 





it 

000223 

0181 

OFOO 

0004 

X 

N9 

000224 

0183 

E840 

FFFE 



000225 

0185 

EF40 

FE70 



000226 

0187 

03C0 

0000 

p 


000227 





* 

000228 





it 

000229 





it 

000230 

0189 

E840 

FE77 



000231 

018B 

6901 

0012 



000232 





* 

000233 

0180 

C870 

5453 



000234 

018F 

CF40 

0000 

p 


000235 

0191 

0840 

0000 

p 


000236 

0193 

C840 

FE60 



000237 





* 

000238 

0195 

03C0 

0000 

p 


000239 





* 

000240 

0197 

FBCO 

FE6A 



000241 

0199 

9BC0 

FEAA 



000242 

019b 

9F87 




000243 

019C 

03C0 

0000 

p 


000244 





it 

000245 





it 

000246 


019E 



L12 

000247 





it 

000248 

019E 

E870 

5E00 



000249 

01 AO 

EF40 

FE60 



000250 

01A2 

FBCO 

FE5F 



000251 

01A4 

9BC0 

FE5C 



000252 

01A6 

9F87 




000253 





it 

000254 

01A7 

OFOO 

0005 

X 

N10 

000255 

01A9 

C840 

FFFE 



000256 

01AB 

CF40 

FE57 



000257 

01 AD 

D3C0 

0000 

p 


000258 

01AF 

FBCO 

FE52 



000259 

01B1 

9BC0 

FE4F 



000260 

01B3 

9F87 




000261 





* 

000262 

0164 

OFOO 

0004 

X 

Nil 

000263 

0166 

E840 

FFFE 



000264 

01B8 

EF40 

FE4A 



000265 

01 BA 

03C0 

0000 

p 


000266 

01BC 

82C0 

FE44 




01 BE 

1E00 




000267 

01BF 

0586 




000268 





* 

000269 





it 

000270 





it 

000271 

oico 

82C0 

FE40 




01C2 

4000 




000272 

01C3 

0501 

0006 



000273 


01C5 



L14 

000274 





* 

000275 

Q1C5 

E870 

5457 



000276 

01C7 

EF40 

0000 

p 


000277 

01C9 

0840 

0000 

p 


000278 

OICB 

C840 

FE35 



000279 





it 

000280 

01CD 

O3C0 

0000 

p 


000281 





it 

000282 





it 

000283 


01CF 



L15 

000284 





it 

000285 





it 

000286 

01CF 

82C0 

FE31 




0101 

0200 




000287 

0102 

0508 




000288 





it 

000289 

0103 

FBCO 

FE2E 



000290 

0105 

9BC0 

FE79 



000291 

0107 

9F87 




000292 

0108 

03C0 

0000 

p 


000293 


010A 



L16 

000294 





it 

000295 





it 

000296 

01 DA 

82C0 

FE26 




OiOC 

0400 




000297 

0100 

0508 




000298 





it 

000299 

010E 

FBCO 

FE23 



000300 

oieo 

9BCQ 

FE7C 



000301 

Q1E2 

9F87 




000302 

01E3 

03C0 

0000 

p 


000303 


01E5 



L18 

000304 





* 

000305 





it 

000306 

01E5 

82C0 

FE1B 




4, = 21571 
4fLAbEL2 
$R5 *SETTOA 
$R4 *0+1 

LOAD R4 R5 (TEMP* CLEAR)? 

5«JRE 

REPORT ERROR? 

7*0 + 2 
i * Til 
1 * $87 
5 *VKPT 

PUT TEXT {", TASX NOT ClEAREd$">? 

* END*; 

7 *0 + 2 
l.SETTOA 
I*$B7 

INGUT (CLEAR* OUTPUT TASK @00) i 
< IOWORD+5 
6,N8+1 

6, D + 3 

5 * J10 

7, D+2 
1*0+1 
1*$B7 

INOUT (TEMP*iNPUT TASK @0@) ; 

<IOWQKO+4 

6 *N9 +1 
6*0+3 
5*JI0 

* IF* TEMP »NE* 0 

* THEN• 

* BEGIN* 

6*0+1 
6 «L12 

LABEL 2 ;= ’LITERAL* ITS)? 

4, = 21587 

4, LABEL2 
$R5 * SETTOA 
$R4 *0+1 

LOAD R4 R5 (TEMP* CLEAR)? 

5 * JRE 

REPORT ERROR? 

7*0 + 2 
1 * T 13 
1 * $B7 
5 *VKPT 

PUT (EXT <"* TASK NO I CLEARED$«); 

•END*? 

5 

TEMP ;= * HEX * (5E00)5 

6 * = 24064 
6*0+1 ' 

7*0+2 

1*0+1 

1 *$B7 

INOUT (TEMP.OUTPUT TASK @U@) ; (SET TASK WORD) 

<10W0RD+5 
4 «N10+1 
4*0 + 3 

5. JJ0 

7 *0 + 2 
1*0+1 

INOUT°(TEMP * INPUT TASK @00)5 
<10WURD+4 
6 * N11 ♦ 1 
6 *D + 3 
5*010 

0+1,2*1E00* 

*IF* 1 *BITS* @4,90 TEMP *EU* 0 *0R* *BIT5» @1*140 TEMP *E0* 0 
•THEN* 

•BEGIN* 

0+1*2*4000* 


LABEL 2 ’LITERAL* (TW)? 

6*521591 
6.LABEL2 
SR5.SETTOA 
$R4,0+1 

LOAD R4 R5 (TEMP* CLEAR)? 

5, JRE 

REPORT ERROR? 

•END*; 

$ 

•IF* ’BITS* @1,90 TEMP *NE* 1 
•THEN* 

0 + 1 * 2 * 0200 * 

>L16 

PUT NEW TEXT ("CANNOl SET PROGRAM EJtCTS")? 
7 *D + 2 
1 * T 1 7 
1 * SB7 
5 * VKPNT 

•IF* *BITS* @1*100 TEMP *NE* 1 
•THEN* 

D+1*2•0400• 

>L 18 

PUT NEW TEXT ("CANNOf SET HOLLERITHS'*) ? 

1 * T19 
1 * $B7 
5 *VKPNT 

•IF* ’BITS* @1*110 TEMP *NE* 1 
•THEN* 

0+1,2*0800* 
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TITLE 
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01E 7 

0800 





000307 

01E6 

0506 



BBT 

>L2Q 

000306 




* 


PUT NEW 

000309 

01E9 

FBCO FE18 



LAB 

7 *D+2 

000310 

OlEb 

9BC0 FE7D 



LAB 

i*T21 

000311 

01ED 

9F87 



ST d 

1 • SB7 

000312 

01EE 

D3C0 0000 

P 


LNU 

5 * VKPNT 

000313 


OlFO 


L20 

EQU 

$ 

000314 




* 


* IF• •BITS* i 

0003 IS 




* 


• THEN• 

000316 

01F0 

82C0 FE10 



LB 

□♦1*2*1000 


01F2 

1000 





000317 

01F3 

0506 



BBT 

>L22 

000316 




# 


PUT NEW 

000319 

01F4 

FBCO FEOO 



LAB 

UQ+l 

000320 

01F6 

9BC0 FE81 



LAb 

1 * T23 

000321 

01F6 

9F87 



STB 

1 * SB 7 

000322 

01F9 

D3C0 0000 

P 


LNO. 

5 * VKPNT 

000323 


01FB 


L22 

EQU 

S 

000324 




# 


* IF * *BITS* i 

000325 




* 


•THEN* 

000326 

01 Fb 

82C0 FE05 



Lb 

□♦1*2*4000 


01F0 

4000 





000327 

01FE 

0506 



BBT 

>L8 

000326 




* 


PUT NEW 

000329 

OiFF 

FBCO FE02 



LAb 

7 * D^2 

000330 

0201 

9BC0 FE82 



LAb 

1 *T25 

000331 

0203 

9F87 



STB 

1 * SB7 

000332 

0204 

D3C0 0000 

P 


LNJ 

5,VKPNT 

000333 




# 

* END * 

* 

000334 

0206 

FBCO FDFB 


L8 

LAB 

7*D*2 

000335 

0206 

9BC0 0000 

P 


LAb 

1 * SETTOA 

000336 

020A 

9F87 



ST b 

1 *SB7 

000337 




* 

INOU'I 

(CLEAR* OUTI 

000336 




* 

•END*; 


000339 

02Gb 

OFOO 0005 

X 

N12 

NOP 

<1OWQRD+5 

000340 

0200 

E840 FFFE 



LOR 

6 *N12+ 1 

000341 

020F 

EF40 FDF3 



STR 

6*D^3 

000342 

0211 

D3C0 0000 

P 


LNJ 

5 * J10 

000343 




* 

•end*; 


000344 




* 

•FINISH* 


000345 

0213 

83C8 FDEC 



JNP 

*D 

000346 


0215 


LI 

EQU 

S 

00034? 

0215 

83C0 0000 

P 


JMP 

2KSEX 

000346 





XLOC 

2KSEX 

000349 





CTRL LINK 2KSEX 

000350 





XLOC 

VKPI 

000351 





XLOC 

VKPNT 

000352 





XLOC 

VKPH 

000353 





XLOC 

ID 

000354 





XLOC 

SETTOA 

000355 





XLOC 

BINARY 

000356 





XLOC 

LABEL 1 

000357 





XLOC 

LABEL2 

000356 





XLOC 

IUWURD 

000359 





XLOC 

JKE 

000360 





XLOC 

JIO 

000361 





XLOC 

JCS 

000362 

0217 

0092 



END 

2VKJLB * 4VK 


TEXT (" CANNQI SET EJECT ON ERRORS") 


OOOO ERR COUNT 
fc§L 



T I TLE 


CRMS3,*REV G* ,CARDREADER / PUNCH TV (SAF) 
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ZVKJlC 

• LIST 




05/19/78 

1427.1R W 

05/19/78 1422,4 184T7000U( 

000001 






TITLE 

ZVKJLC,*REV 00* 

000002 


00C2 




XOEF 

KJLC 

000003 


006C 




XOEF 

ZVKJLC 

000004 


0006 



ZKCQM 

COMM 

8 

000005 

0000 

0000 



0 

RESV 

12,0 

000006 

OOOC 

OOOC 



T10 

DC 

12 

000007 

0000 

5055 

5420 

4F4E 


TEXT 

•PUT ON-LINES* 


0010 

2D4C 

494E 

4524 



000008 

0013 

0029 



T 12 

DC 

41 

000009 

0014 

4445 

5649 

4345 


TEXT 

•DEVICE CONTROLS*,Z*OOOA*,*L* 


0017 

2043 

4F4E 

5452 





001A 

4F4C 

5300 

0A4C 




000010 

0010 

4F41 

4420 

494E 


TEXT 

•OAO INPUT, PUT ON-LINES* 


0020 

5055 

542C 

2030 






5554 

204F 

4E20 






4C49 

4E45 

2400 




000011 

0029 

OOOC 



T13 

DC 

12 

000012 

002A 

5354 

4F50 

2044 

TEXT 

•STUP DEVICES* 


0020 

4556 

4943 

4524 




000013 

0030 

0015 



T16 

DC 

21 

000014 

0031 

334C 

4944 

4320 


TEXT 

•SLIDE OUTPUT STACK• 


0034 

4F55 

5450 

3334 






2053 

5441 

434B 




000015 

003A 

4552 

2400 



TEXT 

•ERS* 

000016 

003C 

0010 



T17 

DC 

16 

000017 

0030 

5245 

4C45 

4153 

TEXT 

•RELEASE STACKERS* 


0040 

4520 

5354 

4143 





4B45 

5224 





000016 

0045 

0010 



T19 

DC 

16 

000019 

0046 

5445 

5354 

2049 


TEXT 

•TEST INTERLOCKS** 


0049 

4E54 

4552 

4C4F 





434(3 

5324 





000020 

004E 

0009 



T 22 

DC 

9 

000021 

004F 

4F50 

454E 

204C 


TEXT 

•OPEN LIDS* 


0052 

4944 

2400 


T23 


000022 

0054 

OOOA 



DC 

10 

000023 

0055 

434C 

4F53 

4520 


TEXT 

•CLOSE L10$ * 


0058 

4C49 

4424 





000024 

005A 

OOOF 



T24 

DC 

•OPEN REAR DOORS* 

000025 

005B 

4F50 

454E 

2052 


TEXT 


005E 

4541 

5220 

444F 






4F52 

2400 





000026 

0063 

0010 



T25 

DC 

16 

000027 

0064 

434C 

4F53 

4520 


TEXT 

•CLOSE REAR DOORS* 


0067 

5245 

4F4F 

4152 

5224 

2044 




000026 


006C 


ZVKJLC 

EQU 

$ 

000029 

006C 

8F00 

0001 

K 

SAVE 

<ZKCOM+1,Z•0011• 


000031 

000032 

000033 

000034 

000035 

000036 

000037 

00003b 

000039 

000040 

000041 

000042 

000043 

000044 

000043 

000046 

000047 

000046 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 

000056 

000059 

000060 

000061 

000062 

000063 

000064 

000065 

000066 

000067 

000066 

000069 

000070 

000071 

000072 

000073 

000074 

000075 

000076 

000077 

000076 

000079 

000080 

000081 

000082 

000083 

000084 

000083 

000086 

000087 

000086 

000089 

000090 

000091 


0071 

0073 

007 5 
0077 
0076 

007A 

007C 

0070 

007 F 
0080 

0082 

0084 


0065 

0087 

0089 

008A 

008C 

006E 

0090 

0092 


0094 

0095 


0097 

0099 

009A 

009C 


0090 

009F 

00A0 

00A2 

00A4 

00A6 

00A6 

00A9 


DFCO 

EF40 

C840 

4F0A 

CF40 

0840 

5F0A 

OF40 

7C14 

FF40 

8740 

0004 


FFet 

FF8D 

0000 

0000 

0000 

0000 

0000 

0000 


* 

* 

P2 


FtiCO FF7C 
9BCQ 0000 
9F87 

OFOO QOOC 
fc.840 FFFE 
EF40 FF74 
D3C0 0000 
D3C0 0000 


6001 

0901 0000 


E2C0 0000 
6047 

E940 FF66 
0911 


C840 0000 
4966 

0840 FF60 
DB70 8000 
OF40 0000 

8940 0000 
4000 

O3C0 0000 


* 

* 

L3 

* 

N1 


♦BEGIN * 

BIB 5,D 

STR 6,0+1 

2HKTCC ;= HERTZ * 10? (SET CLUCK FUR 10 SECONDS) 
LOR 4,HERTZ 

MLV 4,10 

STR 4,ZHKTCC 

ZHRfCl := HERTZ * 10; 

LOR 5,HERTZ 

MLv 3,10 

STR 3,ZHRTC1 

ZHRTCL ? = 20; (SET LEVEL) 

LOV 7,20 

STR 7 ,ZHRTCL 

clock semaphore ; = o; 

CL CKSEM 

DC 4 

clock on; 


/f' X 


wait; 
lab 
LAB 
ST B 

NUP 

LOR 

STR 

LNJ 

LNJ 


CMV 

BE 


OOAB 0F81 0001 


LLH 

SOR 

CMR 

BE 


LOR 

BEZ 

LOR 

MUL 

STR 

LBT 

LNJ 


7,0+2 
1,STA1WA 
1 , SB/ 

JNOUT (STATUS WAS,INPUT STATUS WORD £00); 

<IQWURO+12 
6 , N1 + 1 
6,0 + 3 
5, J 10 
5,VKGB 

•IF* GET BREAK *E3* TRUE 
•THEN* 

•GO TO* ASK NEXI? 

6,1 

ASKNEX / 

•IF* «B1TS* 01,150 STATUS WAS *NE* STATE SHOULD BE 
•THEN* 

•bEGIN* 

6,ST ATWA 
6,7 
6 , 0+1 
>L6 

♦IF* CLOCK SEMAPHORE *Nt* 0 
•THEN* 

•BEGIN* 

4,CKSEM 

4, >L3 

STATUS SHOULD Bb J = STaTE SHOULD BE*'HEX*(8000)5 

5,0+1 

5, =-32768 
5,STATUS 

STATUS SHOULD Bt ;=STATUS SHOULD BE»UNION**HEX*(4000)5 
STATUS,2*4000* 


5, JSE 


•END* 

L6 

•ELSE* 


CHECK STATUS FQK tRRORs*, 
•GO TO* EXIT? 


EXIT; 


* END•; 


•GO TO* WAIT? 
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TITLE CRMS3*•REV G»*CARDREADER / PUNCH TV (SAF) 


000092 


OOAD 



L6 

EUU 

$ 

000093 

OOAD 

0005 




DC 

5 

000094 





* 


CLOCK off; 

000096 





* 

• END*i 

> (OF 10 SEC PROCEDURE) 

000096 





*#; 


000097 





** PROCEDURE TO START DEVICE; 

000098 





**; 



000099 





* 

•procedure* start device; 

000100 

OOAE 

83C8 

FF51 



JMP 

*D 

000101 





# 

•BEGIN* 

000102 

OOBO 

DFCQ 

FF 54 


P9 

STB 

5,D*5 

000103 

00B2 




* 


LABEL 1 js ’LITERAL* (Cl)? 

000104 

E870 

4331 



LDR 

6,517201 

000106 

00B4 

EF40 

0000 

P 


STR 

6*LABEL1 

000106 





# 


PUT NEW TEXT ("PUT ON-LINES")* 

000107 

00B6 

FBCQ 

FF4F 



LAb 

7 *D*6 

00010b 

U0B8 

9BC0 

FF53 



LAB 

1*T10 

000109 

OOBA 

9F87 




STB 

1*SB7 

000110 

OOBB 

D3C0 

0000 

P 


LNJ 

5 *VKPNT 

pool 11 

OOBO 

6C01 



* 


WAIT 10 SECONDS (SHOULD BE ON)? 

000112 




LDv 

6*1 

000113 

OOBE 

D3C0 

FFB2 



LNJ 

5*P2 

000114 





# 

•END* i 

f 

000116 





** : 


000116 





** 

LETTER C - DEVICE SAFETY FEATURES? 

000117 





*#; 



00011b 





# 

• PROCEDURE* LETTER CP? 

000119 

OOCO 

83C8 

FF44 



JMP 

*D*5 

000120 





# 

•BEGIN* 

mu 

00C2 

DFCQ 

FF44 


* 

KJLC 

STB 

•INTEGER* RESPONSE? 

5*0*7 

000123 

00C4 




* 


LABEL 1 ’LITERAL* (Cl)? 

000124 

E870 

4331 



LDR 

6*517201 

000126 

00C6 

EF40 

0000 

P 


STR 

6,LABEL1 

000126 

00C8 

FBCO 

FF40 



LAb 

7 ,D*9 

000127 

OOCA 

9BC0 

0000 

P 


LAB 

1*BJNARY 

00012b 

OOCC 

9F87 




STB 

1 *SB7 

000129 

OOCO 




# 

INOUT (INITIALIZE* OUTPUT CONIROLfcu©)? 

000130 

ABCO 

0000 

P 


LAB 

2 *IOWORD 

000131 

OOCF 

AF CO 

FF3A 



STB 

2 «D+10 

000132 

0001 

D3C0 

0000 

P 


LNJ 

5 * J10 

000133 

0003 

FBCO 

FF35 


* 


PUT NEW TEXT ("DEVICE CONTROL^ J C L)LOAD INPUT* PUT ON-LINES" 

000134 



LAB 

7 *0 + 9 

000136 

0005 

9BC0 

FF3D 



LAB 

1*112 

000136 

0007 

9F87 




STB 

1 *$B7 

000137 

000b 

D3C0 

0000 

P 


LNJ 

5, VKPNT 

00013b 

OOOA 

D3C0 

0000 

P 


LNJ 

5, JWR 

000139 

000140 





# 

# 


WAIT FOR RETURN? 

WAIT 10 SECONDS (SHOULD BE ON)? 

000141 

oooc 

6CG1 

D3C0 




LDV 

6*1 

000142 

0000 

FF93 



LNJ 

5 *P2 

000143 





# 


LABEL 1 ;s ’LITERAL* (C2)? 

000144 

OOOF 

E870 

4332 



LDR 

6*517202 

000146 

OOEl 

EF 40 

0000 

P 


STR 

6.LABEL1 

000146 





* 


PUT NEW TEXT ("STOP DEVICES")* 

000147 

00E3 

FBCO 

FF25 



LAB 

7,D*9 

00014b 

00E5 

9BC0 

F F 4 3 



LAB 

1 *T13 

000149 

00E7 

9F87 




STB 

1 * SB7 

000150 

OOEd 

D3C0 

0000 

P 


LNJ 

5 *VKPNT 

000151 

OOEA 




* 


WAIT 10 SECONDS (SHOULD BE OFF); 

000152 

6C0Q 




LDV 

6*0 

000153 

OOEB 

D30Q 

FF85 



LNJ 

5 ,P2 

000154 





# 


•IF* ID •EQ* ’HEX* (2008) 

000155 





# 


•THEN* 

000156 





# 


•GO TO* END LETTER C? 

000157 

OOEO 

E840 

0000 

P 


LDR 

6 * ID 

00015b 

OOEF 

E970 

2008 



CMR 

6 * *8200 

000159 

000160 

OOF 1 
00F3 

°ol°d 

0061 

FFBC 



th 

L15 

5 *P9 

000161 





* 


START DEVICE? 

OQO162 
000163 





* 


LABEL 1 ;s ’LITERAL* (C3)? 

00F5 

E870 

4333 



LDR 

6*517203 

000164 

Q0F7 

EF40 

0000 

P 


STR 

6*LABEL1 

000165 





* 


PUT NEW TEXT ("SLIDE OUTPUT SIACKERS")? 

000166 

OOF 9 

FBCO 

FFOF 



lab 

7*D*9 

000167 

OOFO 

9BCG 

FF34 



LAb 

1 *T 16 

000168 

OOFD 

9F87 




STB 

1 * SB7 

000169 

OOFE 

D3C0 

0000 

P 


LNJ 

5 * VKPNT 

000170 





* 


WAIT 10 SECONDS (SHOULD BE UFF); 

000171 

0100 





LDV 

6*0 

000172 

0101 

FF6F 



LNJ 

6 *P2 

000173 





* 


PUT NEW TEXT ("RELEASE STACKERS")? 

000174 

0103 

FBCO 

FF 05 



LAb 

7 *D + 9 

000175 

0105 

9BC0 

FF36 



LAb 

1 * T1 7 

000176 

0107 

9F67 




STB 

1 * SB7 

000177 

0108 

D3C0 

0000 

P 


LNJ 

6,VKPNT 

00017b 

010A 

D3C0 

FFA5 



LNJ 

5 * P9 

000179 





* 

START device; 

000180 





* 

ASK again; 

000181 


OIOC 



L18 

EQU 

S 

000182 





* 


ASK NEW QUESTION ("TEST INTERLOCKS*")? 

000183 

OiOC 

FBCO 

FEFC 



LAb 

7 * D + 9 

000184 

OiOE 

9BC0 

FF 36 



LAb 

1 *T 19 

000185 

0110 

9F87 




ST B 

1 * SB7 

000186 

0111 

D3C0 

0000 

P 


LNJ 

5 * VKANQ 

000187 


Eb70 



# 

RESPONSE J= * HEX * (4E0D) ? 

000188 

0113 

4E0D 



LDR 

6,519981 

000189 

0115 

EF40 

FEF2 



STR 

6,D*b 

000190 

0117 

FBCO 

FEF J 



LAB 

7 *D + 9 

000191 

0119 

9BC0 

FEEE 



LAB 

1 *D«-8 

000192 

011b 

9F87 




STb 

1 *SB7 

000193 

one 

D3C0 

0000 

P 


LNJ 

5 * VKGC 

000194 





# 


GET CHAR (RESPONSE)? 

000195 





* 


•IF* RESPONSE »NE* ’LITERAL* (Y) 

000196 





* 


•THEN* 

000197 





* 


•BEGIN* 

000198 

01 IE 

E840 

FEE 9 



LDR 

6 , D*8 

000199 

000200 

0120 

0121 

6D59 

0904 




CMV 

BE 

6,89 

>L20 

000201 





* 


•IF* RESPONSE •NE • •LI 1 ERAL * (N) 

000202 





* 


•THEN* 

000203 





* 


•GO TO* ASK AGAIN? 

000204 

0122 

6D4E 




CMV 

6*78 



TITLE CRMS3••REV G* *CARPREAPER / PUNCH TV (SAF) 


PAGE 


0000 

£L 


000 *01? 

0123 

09E9 




6 NE 

>L18 

000*06 





4 


•GO TO* ENP LETTER C? 

000*07 

01*4 

OFAF 




B 

>L15 

000*06 





* 

•END* 

; 

000*09 


0125 



L20 

EQu 

$ 

000*10 





* 

LABtL 

1 ;= 'LITERAL* (C4)5 

000*11 

0125 

E870 

4334 



LOR 

6 * s17204 

000 *1* 

0127 

EF40 

0000 

P 


STR 

6 ,LABEL! 

000*13 





* 

PUT NtW TEXT ("OPEN LIPS*') ? 

000*14 

0129 

FBCO 

FEPF 



LAb 

7 , D + 9 

000215 

0120 

9BCQ 

FF22 



LAb 

1 * T22 

000*16 

0120 

9F87 




5TB 

i,S67 

000*17 

012E 

D3C0 

0000 

P 


LNJ 

5 *VKPNT 

000*18 






WAIT 

10 SECONDS (SHOULD BE OFF)? 

000*19 

0130 

6C00 




LPV 

6*0 

000*20 

0131 

D3C0 

FF3F 



LNJ 

5,P2 

000*21 





# 

PUT NEW TEXT ("CLOSE LIDS")* 

000*22 

0133 

FbCO 

FED5 



LAB 

7,0+9 

000*23 

0135 

96C0 

FF IE 



LAB 

1 »T23 

000*24 

0137 

9F87 




STB 

1 , $B7 

000226 

0136 

D3C0 

0000 

P 


LNJ 

5♦VKPNT 

000*26 

013A 

D3CQ 

FF75 



LNJ 

5 ,P9 

000227 






START 

device; 

000228 





* 

LABEL 

1 *UTERAL* (C5)5 

000229 

01 3C 

E870 

4335 



LDR 

6,517205 

000230 

013E 

EF40 

0000 

P 


ST R 

6,LABEL1 

000*31 

0140 

FBCO 

F EC8 



LAb 

7,P + 9 

00023* 

0142 

9BC0 

FF1 7 



LAb 

1, T 2 4 

000*33 

0144 

9F87 




STB 

1 ,S>B7 

000*34 

0145 

D3C0 

0000 

P 


LNj 

5 ♦ VKPNT 

000236 





# 

PUT NEW TEXT ("OPEN REAR POORS"); 

000*36 





# 

WAI T 

10 SECONDS (SHOULD BE OFF)? 

000*37 

0147 

6C00 




LPV 

6,0 

000*38 

0148 

Q3C0 

FF28 



LNJ 

5,P2 

000*39 





# 

PUT NEW TEXT ("CLOSE REAR DUQR$")5 

000*40 

014A 

FBCO 

FEBE 



LAB 

7* P+9 

000*41 

014C 

9BC0 

F F 16 



LAb 

l,T25 

00024* 

014E 

9 F 8 7 




ST b 

1 , SB7 

000*43 

014F 

P3CQ 

0000 

P 


LNJ 

5,VKPNT 

000244 

0151 

Q3C0 

FF5E 



LNJ 

5 , P9 

000*48 






START 

device; 

000246 





* 

ENP LETTER 

c; 

000*47 





# 

•ENP*; 

(OF LETTER C) 

000*48 





# 

•ENP*; 

(OF SEGMENT) 

000*49 





# 

•FINISH* 


000*50 

0153 

83C8 

FEB3 


U15 

JMP 

#0+7 

000251 


0155 



Li 

EQU 

$ 

000*5* 

0155 

8 3 CO 

0000 

P 


JMP 

2KSEX 

000*53 






XLOC 

2KSEX 

000*54 






CTRL LINK 

2KSEX 

000*55 






XLOC 

2HRTC1 

000*56 






XLOC 

ZHRTCL 

000*57 






XLOC 

2HRTCC 

000*58 






XLOC 

VKPNT 

000*59 






XLOC 

VKANQ 

000*60 






XLOC 

VKGC 

000261 






XLOC 

VKGB 

000 *6* 






XLOC 

IP 

000*63 






XLOC 

STAT WA 

000*64 






XLOC 

STATUS 

000*65 






XLOC 

HERT* 

000*66 






XLOC 

BINARY 

000*67 






XLOC 

LABEL1 

000*68 






XLOC 

CKSEM 

000*69 






XLOC 

IOWORP 

000*70 






XLOC 

JIO 

000*71 






XLOC 

JWR 

000*7* 






XLOC 

JSE 

000273 






XLOC 

ASKNEX 

000*74 

0157 

006C 




ENP 

2VKJLC,2VKJLC 

ERR COUNT 








TO 



TITLE CRMS3«•REV G« *CARDREADER / PUNCH TV (SAP) PAGE 71 


ZVKJLF 

• LIST 





05/19/78 

1427•2R W 

05/19//8 1422,4 29281500U0 

000001 







TITLE 

ZVKJLF * * REV 00* 

000002 


005C 





XUEF 

KJLF 

000003 


0057 





XDfcF 

ZVKJLF 

000004 


0008 




ZKCOM 

COMM 

8 

000005 

0000 

0000 




0 

RESV 

11*0 

000006 

000B 

0015 




T8 

DC 

21 

000007 

OOOC 

5055 

4E43 

4820 



TEXT 

•PUNCH 400 CPM - MA* 


OOOP 

3430 

3020 

4350 







4020 

2D20 

4041 





000006 

0015 

5820 

240(7 




TEXT 

•X $• 

000009 

0017 

OOOE 




T9 

DC 

14 

000010 

0018 

2043 

4152 

4453 



TEXT 

• CARDS* TOTALS* 


001b 

2C20 

544F 

5441 







4C24 







000011 

00 IF 

OOOC 




Til 

oc 

12 

000012 

0020 

5245 

4144 

5920 



TEXT 

•READY PUNCH** 


0023 

5055 

4E43 

4824 





000013 

0026 

0021 




T30 

DC 

33 

000014 

0027 

5241 

5445 

2053 



TEXT 

•RATE SHOULD BE 400* 


002A 

484F 

554C 

4420 







4245 

2034 

3030 





000015 

0030 

2043 

5040 

2C20 



TEXT 

• CPM* PUNCHED S* 


0033 

5055 

4E43 

4845 







4420 

2400 






000016 

0038 

0022 




T 33 

DC 

34 

000017 

0039 

5354 

4154 

5553 



TEXT 

•STATUS ERROR CARDS* 


003C 

2045 

5252 

4F52 







2043 

4152 

4453 





00001b 

0042 

204F 

4646 

5345 



TEXT 

• OFFSET STACKED** 


0045 

5420 

5354 

4143 





000019 

004A 

4645 

OOOE 

4424 



T36 

DC 

14 

000020 

004H 

2C20 

4552 

524F 



TEXT 

** ERROR EJECTS* 


004E 

5220 

454A 

4543 







5424 







000021 

0052 

0007 




T38 

DC 

7 

000022 

0053 

5645 

5249 

4659 



TEXT 

•verifys* 


0056 

2400 







000023 


0057 




ZVKJLF 

EUU 

$ 

000024 

0057 

8F00 

0001 


K 


SAVE 

<zkcom+i*z*ooh* 


0059 

0011 







000025 






* 

•BEGIN* 


000026 

005A 

0F81 

019A 




B 

Li 

000027 






* 

•INTEGER* TEMP * I * COL 8? 

000028 

005C 

UFCQ 

FFA3 



KJLF 

ST d 

5 * D 

000029 






# 

•IF* 

ID *EQ» •HEX• (2008) 

000030 






* 

•THtN * 

000031 






* 


•GO TO• END LETTER F? 

000U32 

005E 

E840 

0000 


H 


LDR 

6 * I D 

000033 

0060 

E970 

2008 




CMK 

6 * = 8200 

000034 

0062 

0901 

0190 




BE 

L39 

000035 






* 

LABEL 1 J= •LITERAL* (FI) ? 

000036 






* 

•COMMENT* 

CLEAR BUFFER 1 AND 25 

000037 

0064 

C870 

4631 




LDR 

4,=17969 

00003b 

0066 

CF40 

0000 


P 


STK 

4 *LABEL1 

000039 

0068 

FBCO 

FF9B 




LAb 

/ « D + 4 

000040 

006 A 

9BC0 

0000 


P 


LA D 

1 * BUFFI 

000041 

006C 

9F 87 





ST b 

1 » SB/ 

000042 

006l> 

5C54 





LDV 

5*84 

000043 

006E 

UP 40 

FF96 




STK 

5 ,D + 5 

000044 

0070 

F 870 

00A4 




LDR 

7, = 164 

000045 

0072 

FF40 

FF93 




STR 

/ * D+6 

000046 






* 

FILL 

BUFFER (SUFFER 1*164*0)? 

000047 

0074 

8740 

FF92 




CL 

D*7 

00004b 

0076 

U3C0 

0000 


P 


LNJ 

5, JFB 

000049 






# 

R OK 

V MODE ? = 'LITERAL* (R) ? 

000050 

0078 

6C52 





LDV 

6,82 

000051 

0079 

EF40 

0000 


P 


STR 

6,ROKVMJ 

000052 






* 

READ 

UR PUNCH ;= PUNCH §o@; 

000053 

007b 

C800 

0010 


X 


LDR 

4,<I DWORD*16 

000054 

007D 

CP40 

0000 


P 


STR 

4,READOR 

000055 

007F 

FBCO 

FF84 




LAb 

7 * D + 4 

000056 

0081 

9BC0 

0000 


P 


LAb 

1,BINARY 

000057 

0083 

9F87 





STB 

1 , SB/ 

000058 






* 

1N0UT (INITIALIZE* OUTPUT CUN 1ROL <eO< 

000059 

0084 

ABCO 

0000 


P 


LAb 

2 * IOWORD 

000060 

0086 

AFCO 

FF7E 




STB 

2*D*5 

000061 

0088 

D3C0 

0000 


P 


LNJ 

5,JI0 

000062 

008A 

FBCO 

FP 79 




LAb 

7 * D + 4 

000063 

008C 

9BC0 

0000 


P 


LAb 

1,SETT OH 

000064 

008E 

9F87 





SIB 

1 * $ B 7 

000065 






* 

INOUT (SET TO HOLLERITH* OUIPUT TASK 

000066 

008F 

OFOO 

0005 


X 

N1 

NOP 

<10W0RD*5 

000067 

0091 

E840 

FPPE 




LDR 

6 *N1 +1 

000068 

0093 

EP40 

FF71 




STR 

6 * D+ 5 

000069 

0095 

D3C0 

0000 


p 


LNJ 

5 , J 10 

000070 






# 

STATUS SHOULD BE ;= »HEX* (8000); 

000071 

009/ 

E870 

8000 




LDR 

6,=-32768 

00007^ 

0099 

EP 40 

0000 


p 


STR 

6 * STATUS 

000073 






* 

LOW 

ADDRESS ?= ZVDLR? 

000074 

009b 

C840 

0000 


p 


LDR 

4*ZV$LR 

000075 

0090 

CF40 

0000 


p 


STR 

4 * LOWADD 

000076 






# 

ZHRTCC : = o; 

000077 

009F 

8740 

0000 


p 


CL 

ZHRTCC 

000078 






* 

ZHKTCI ; = o; 

000079 

OOAi 

8740 

0000 


p 


CL 

2HRTC1 

000080 






* 

• IF* 

MAXIMUM CARDS •LT• 999 

000081 






* 

* THtN * 

000082 






* 


TEMP := MAXIMUM CARDS 

000083 

00A3 

P840 

0000 


p 


LDR 

5 , MAX IMJ 

000084 

00A5 

U970 

03E7 




CMK 

5 * = 999 

000085 

00 A 7 

0884 





bage 

>L5 

000086 






* 

•ELSt* 

000087 

00A8 

DP 40 

PF58 




STR 

5 *D+1 

000088 

OOAA 

OP 85 





B 

>L6 

000089 


OOAB 




L5 

EOU 

$ 

000090 






# 


TEMP ;= 9995 

000091 






* 

ASK AGAIN; 


000092 

OOAb 

E870 

03E7 




LDR 

6 * = 999 

000093 

OOAO 

EF40 

FF53 




STR 

6 • D+ 1 

000094 


OOAF 




L6 

EOU 

$ 

000095 






* 

PUT 

NEW TEXT ("PUNCH 400 CPM - MAX $' 





TITLE 

CRMS3, 

•REV G* 

♦CAkDKEADER 

/ PUNCH TV (SAF) PAGE 72 


000096 

GOAF 

fbcg 

FF 54 



LAO 

7,D*4 


000097 

006! 

9BC0 

FF59 



LAb 

l,T8 


000096 

0063 

9F87 




STB 

1,$B7 


000099 

0064 

D3C0 

0000 

P 


LNJ 

5 * VKPNT 


000100 

0066 

F6C0 

FF40 



LAB 

7, D + 4 


000101 

0068 

E840 

FF48 



LDR 

6,D*1 

fW 1' ) 

IS ;: j 

oooioa 

OOBA 

EF07 




STR 

6 * $B7 


000103 

0066 

03C0 

0000 

P 


LNJ 

5,JPN 


000104- 





* 


PUT NUMBER (TEMP)? 


000105 

0060 

F BCO 

FF46 



LAb 

7 , D*4 


000106 

OOBF 

9BC0 

FF 57 



LAb 

i ,T9 


000107 

00C1 

9F87 




STd 

1 * $67 


000106 

00C2 

03CO 

0000 

P 


LNj 

5,VKAQ 


000109 





# 


ASK QUESTION (” CARDSi TOTALS”)? 


000110 





# 


GET DECIMAL (CARDS SPECIFIED)? 


000111 

0GC4 

F6C0 

FF3F 



LAB 

7,D*4 


000112 

00C6 

9BC0 

0000 

P 


LAb 

1KAKD5S 


000113 

00C8 

9F67 




STd 

I *SB7 


000114 

00C9 

D3C0 

0000 

P 


LNJ 

5 * VKGD 


000115 





* 


•IF* CARDS SPECIFIED •GT * TEMP 


000116 





* 


•THEN* 


000117 





* 


•GO TO' ASK AGAIN? 


opoiia 

00C6 

E840 

0000 

P 


LDR 

6,CARDS5 


000119 

OOCO 

E940 

FF33 



CMR 

6,D*1 


000120 

OOCF 

0A6Q 




BAG 

>L6 


000121 





* 


PUT NEW TEXT ("READY PUNCH*")? 


000122 

0000 

FBCO 

FF33 



LAB 

7 , D ♦ 4 


000123 

0002 

9BC0 

FF4C 



LAb 

1 * T 1 i 


000124 

0004 

9F87 




STB 

1 * SB7 


000125 

0005 

03C0 

0000 

P 


LNJ 

5 * VKPNT 


000126 

0007 

D3C0 

0000 

P 


LNJ 

5,JWK 


000127 





* 


WAIT FOR RtrURN? 


000126 





* 


CHECK STATE (SHOULD BE ON)? 


000129 

0009 

FBCO 

FF2A 



LAB 

7, D + 4 


000130 

0006 

6C01 




LDV 

611 


000131 

OOOC 

EF07 




STR 

6,SB7 


000132 

0000 

03C0 

0000 

P 


LNJ 

5, JCS 


000133 

OOOF 

03C0 

0000 

P 


LNJ 

5 ,U5E 


000134 





* 


CHECK STATUS FOR ERRORS? 


000135 





* 


LABEL 1 ?= •LITERAL* (F2)? 


000136 

OOt 1 

E870 

4632 



LDR 

6,517970 


000137 

Q0E3 

EF40 

0000 

P 


STR 

6,LABEL 1 


000136 





* 


BUFFER 1 ;= * HEX * (100)? 


000139 

G0E5 

C870 

0100 



LDR 

4, = 256 


000140 

00E7 

CF 40 

0007 

P 


STR 

4 ,bUFF1 + 7 


000141 

OOfc.9 

FBCO 

FF1A 



LAb 

7 ,D*4 


000142 

OOEB 

96C0 

0000 

P 


LAB 

ItBUFFI 


000143 

OOEO 

9F67 




5TB 

i,$B7 


000144 

OuEE 

OFQO 

0010 

X 

N2 

NOP 

<IOWORD+16 


000145 

OOFO 

0840 

FFFE 



LDR 

5,N2-»;1 


000146 

00F2 

DF40 

FF 12 



SIR 

5 ,D*5 


000147 





# 


IOLD (BUFFER KO©,PUNCH fe0&*160)? (PUNCH NO 1 CARD) 


000146 

00F4 

F 870 

OOAO 



LDR 

7 9 = 160 


000149 

00F6 

FF40 

FFOF 



STR 

7 , D*6 


000150 

00F6 

D3C0 

0000 

P 


LNJ 

59JIL 


000151 

OOFA 

03C0 

0000 

P 


LNJ 

5 9 USE 


000152 





* 


CHECK STATUS FOR ERRORS? 

4 "N 

000153 







CHECK STATE (SHOULD BE ON)? 

1 

000154 

OOFC 

FBCO 

FF07 



LAb 

7,0*4 

J 

000155 

00 Fb 

6C01 




LDV 

6,1 


000156 

OOFF 

EF07 




STR 

6,S67 


000157 

0100 

03C0 

0000 

P 


LNJ 

5 9 JCS 


000156 





* 


error flag ;= 0 ? 


000159 

0102 

8740 

0000 

P 


CL 

EKRURF 


000160 





# 


CLOCK SEMAPHORE ;= 0? 


000161 

0104 

8740 

0000 

P 


CL 

CKSEM 


000162 





# 


CARD COUNT ;= 1? 


000163 

0106 

6C01 




LDV 

6,1 


000164 

0107 

EF40 

0000 

P 


STR 

6 , CARDSR 


000165 





* 


COL 8 := * HEX• (80) ? 


000166 

0109 

C870 

0080 



LDR 

'4, =128 


000167 

0106 

CF40 

FEF7 



STR 

4 , D*3 


000166 





* 


TEMP ;= •HEX•(1000) 5 (COLUMN VALUE - NO PUNCH) 


000169 

0100 

0870 

1000 



LDR 

5 9 = 4096 


000170 

010F 

0F40 

FEF1 



STR 

5 ,D* 1 


000171 

0111 

0004 




DC 

4 


000172 





# 


CLOCK ON? 


000173 





* 

• COMMENT • ENTER 1 HE 100»b LOOP? 


000174 

0112 

E840 

FEEE 


L12 

LDR 

6 9 D* 1 


000175 

0114 

Er 40 

FEED 



STR 

6*D*2 


000176 

0116 

03C0 

0012 



LNj 

5 ,P13 


000177 

0116 

E870 

0100 


L14 

LDR 

6, = 256 


000176 
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•END* 
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•END*; (OF 10*S LUOP) 


000285 

0 i 81 

83C6 

FE77 



JMP 

*0*6 


000286 





* 

•ENO 

• ; (of ioo»s loop) 


000287 





* 

STOP punching: 


000286 

0190 

83C6 

FE73 


£21 

JMP 

*0*4 


000289 


0192 



£16 

EQU 

$ 


000290 

0192 

0005 




oc 

5 


000291 





* 

CLOCK off; 


000292 





* 

REAO 

UR PUNCH ;= FALSE; (DUN*I PUNlH, JUST CHK LAST CARO) 

000293 

0193 

8 740 

0000 

P 


CC 

REAOOR 


000294 





* 

GENtRATE CHtC<SUMS (REAP OR PUNCH)i 


000295 

0195 

F6C0 

FE6E 



EAd 

7*0*4 


000296 

0197 

E840 

0000 

P 


CDR 

6,REAOOR 


000297 

0199 

EF07 




STR 

6 * $B7 


000296 

019A 

03C0 

0000 

P 


CNJ 

5,JGC 


000299 

019C 

PBCO 

FE67 



EAb 

7,0*4 


000300 

019E 

9BC0 

FE87 



CAB 

1 , T30 


000301 

01 AO 

9F87 




STB 

1,$B7 


000302 

01A1 

03C0 

0000 

P 


CNJ 

5 * VKPNT 


000303 





* 

PUT 

NEW TEXT (’’RATE SHOULD BE 400 CPM* PUNCHED S>"); 


000304 





* 

CACCUCATt ECAPSEO TIME (CARO COUNT)? 


000305 

01 A3 

F6C0 

Ft 60 



CAB 

7,0*4 


000306 

01A5 

£840 

0000 

P 


COR 

6,CAROSR 


000307 

01A7 

EF07 




STR 

6 * $B7 


000306 

01A8 

03C0 

0000 

P 


CNJ 

5 * JET 


000309 






•IF* 

ERROR FLAG «Nt* 0 


000310 





* 

•THtN* 


000311 





# 

•BEGIN* 


000312 





* 

WRONG RESPONSt; 


000313 

01AA 

E840 

0000 

P 


COR 

6 * EKKORF 


000314 

01 AC 

6926 




BE L 

6 *>L31 


000315 





* 


ASC NEW QUESTION 


000316 

01 AO 

FBCO 

FE56 


£32 

CAB 

7*0*4 


000317 

01AF 

9BC0 

F£88 



CAb 

1 *T33 


000316 

Olbl 

9F87 




STB 

1 *SB7 


000319 

0162 

D3C0 

0000 

P 


ENj 

5 * VKANQ 


000320 





* 


( "STATUS ERROR CAROS OFFSET STACKED$"); 


000321 





* 


TEMP ; = • HtX * (5900); 





TITLE: 


CRM53 * * REV G»♦CARDRLADfcR / PUNCH TV {5AF) 


PACE: 


74 







TITLE 


CRMS3,*REV G*,CAKDREADEK / PUNCH TV (SAP) 


PAGE 75 


000322 
000323 
000324 
000325 
000326 
000327 
00032b 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
00033 1 
00033b 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
00034b 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
00035b 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
00036b 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
00037b 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 
000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 


01B4 

E870 

5900 


01B6 

EF40 

FE4A 


01B8 

FBCO 

FE4B 


01 BA 

9BC0 

FE46 


OiBC 

9F87 



0IBD 

03C0 

0000 

P 

01BF 

E840 

FE41 


01C1 

6059 



01C2 

0910 



01C3 

6D4E 



01C4 

Q9E9 



01C5 

C87Q 

4F53 


01C7 

CF40 

0000 

P 

01C9 

03C0 

0000 

P 

01CB 

FBCO 

FE38 


0 ICO 

9BC0 

FE7C 


01CF 

9F87 



OIDu 

O3C0 

0000 

P 


0102 



0102 

E840 

0000 

P 

0104 

EF40 

0000 

P 


0106 



0106 

6C56 



0107 

EF40 

0000 

P 

0109 

FBCO 

FE2A 


010B 

9BC0 

FE76 


0100 

9F87 



010E 

03C0 

0000 

P 

01E0 

E870 

5900 


01E2 

EF40 

FE1E 


01E4 

FBCO 

FE1F 


01E6 

96C0 

FE1A 


01E8 

9F87 



01E9 

03C0 

0000 

P 

01 EO 

E840 

FE15 


01 EO 

6D4E 



01 EE 

0905 



01EF 

6059 



OiFO 

09E6 



01F1 

03C0 

0000 

P 


* 

* 

* 

L31 

# 

* 


L37 

* 


01F3 

01F5 


83Cb FEOC 
01F5 

83C0 0000 


# 

* 

L39 

LI 


LOK 
ST R 
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6 , 0+1 

GET CHAR (TEMP); 

7,0 + 4 
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•IF* TEMP * NE• •L1IERAL* (Y) 
•THEN* 

•BEGIN* 

6 , 0+1 
6,89 
>L3 i 
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•THEN* 

•GO TO• WRONG RESPONSE 
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FBCO 

FF74 




LAB 

7,04-3 

000067 

0090 

9BC0 

FF70 




LAB 

1,04-1 

000066 

0092 

9F87 





STB 

1,SB7 

000069 






# 

INOUT 

(TEMP, INPUT INTERRUPT @U@)? 

000070 

0093 

OFOO 

0001 


X 

N2 

NOP 

<IGWORD+1 

000071 

0095 

E840 

FFFE 




LDR 

6,N2+i 

000072 

0097 

EF40 

FF6C 




STR 

6,0 + 4 

000073 

0099 

03C0 

0000 


p 


LNJ 

5 , J10 

000074 






* 

♦IF* 

TEMP »NE * •HEX * (AAAA) 

000075 






* 

•THEN* 

000076 






* 

•BEGIN* 

000077 

0096 

E840 

FF65 




LDR 

6, D+ 1 

000076 

0090 

E970 

AAAA 




CMR 

6,=-21846 

000079 

009F 

0901 

001A 




BE 

L5 

000080 






* 


LABEL 2 ;= ’LITERAL* (1A)? 

000081 

0GA1 

C870 

4941 




LDR 

4, = 18753 

000082 

00A3 

CF40 

0000 


p 


STR 

4,LABEL2 

000083 

OOA5 

0840 

0000 


p 


LDR 

$R5,SETTQA 

000084 

00A7 

C840 

FF 59 




LDR 

$R4,D+1 

000085 






* 


LOAD R4 R5 (TEMP, CLEAR)? 

000086 

G0A9 

03C0 

0000 


p 


LNJ 

5,ORE 

000087 






# 


REPORT ERROR? 

000088 






# 


PUT TEXT (", INTERRUPT REGISTER INCORRECT*")? >v 

000089 

OOAB 

FBCO 

FF57 




lab 

7,D+3 ( 1 

000090 

00 AO 

9BC0 

FF61 




LAB 

X.T6 1 „ 

000091 

GOAF 

9F87 





ST B 

i * SB7 V> 

000092 

0060 

03C0 

0000 


p 


LNJ 

5,VKPT ^ 

000093 






* 


•GO TO* FRESH START? 















TITLE 

CRMS3 , 

•REV G* 

•CARPREAPEH 

/ PUNCH TV (5AF) PAGE 79 


000U94 

0002 

83C0 

0000 

P 


JMP 

FRESHS 


00009b 





# 

*ENP» 

1 


000096 


0064 



L5 

EQU 

$ 


000097 





* 

TEMP ; 

= •HEX• (5555)? 


00009b 

0064 

E870 

5555 



LPR 

6,=21845 

( 

000099 

0066 

EF40 

FF4A 



STR 

6,P+1 


000100 

0068 

FBCO 

FF4A 



LAB 

7, D+ 3 


OOOXOi 

OOBA 

9BC0 

FF46 



lab 

ltP+1 


000102 

QQBC 

9F87 




STB 

1, $67 


000X03 





* 

1N0UT 

(TEMP,OUTPUT INTERRUPT ©U@)$ 


000X04 

0060 

OFOQ 

0002 

X 

N3 

NOP 

<1OWQRD+2 


000105 

OOBF 

C840 

FFFE 



LPR 

4, N3 +1 


000X06 

00C1 

CF40 

FF 42 



STR 

4 , D + 4 


000X07 

00C3 

03C0 

0000 

P 


LNJ 

5 , J 10 


oooxob 

00C3 

FBCO 

FF3D 



LAB 

7,P + 3 


000X09 

00C7 

9BC0 

FF39 



LAB 

1 * P+1 


000X10 

G0C9 

9F87 




STB 

1 ,$B7 


000U1 





# 

1N0UTUEMP, INPUT INTERRUPT eoe) 5 


0001X2 

OOCA 

OFOO 

0001 

X 

N4 

NOP 

<1OWORD+1 


000113 

OOCC 

E840 

FFFE 



LPR 

6,N4+l 


000114 

ooct 

EF40 

FF 35 



STR 

6 , D+4 


000115 

0000 

03CO 

0000 

p 


LNJ 

5 , J 10 


000116 





* 

•IF* TEMP •NE• •HEX• (5555) 


000117 





* 

•THEN* 



000116 





* 

•BEGIN* 


000119 

0002 

E840 

FF2E 



LOR 

6,0+1 


000X20 

0004 

E970 

5555 



CMR 

6, = 21845 


000121 

U0D6 

0901 

0014 



BE 

L8 


000122 





* 


LABEL2 != ’LITERAL* (16) ? 


000123 

0008 

C870 

4935 



LPR 

4,=18741 


000124 

OGOA 

Cr 40 

0000 

p 


ST* 

4,LABEL2 


000125 

OOOC 

0840 

0000 

p 


LPR 

$R5,SET TOA 


000126 

OODE 

C840 

FF22 



LPR 

$K4,P+1 


000127 





# 


LQAP R4 R5 (TEMP, CLEAR)5 


00012b 

OOEO 

03C0 

0000 

p 


LNJ 

5, JRE 


000129 





# 


REPORT E3R0R? 


000130 





* 


PUT TEXT (", INTERRUPT REGISTER INCORREC1$"); 


000131 

00E2 

FBCO 

FF20 



LAB 

7 , D + 3 


000132 

00E4 

9BC0 

FF3B 



LAb 

1 , T9 


000133 

0QE6 

9F87 




STB 

1, $B7 


000134 

00E7 

03C0 

0000 

p 


LNJ 

5,VKPT 


000135 





* 


•GO TO* FRESH START; 


000136 

00E9 

83C0 

0000 

p 


JMP 

FRESHS 


000137 





ik 

•ENP*; 



000138 

0QE6 

FBCO 

FF 17 


L8 

lab 

7,P+3 


000139 

OOEO 

9BC0 

0000 

p 


lab 

1,BINARY 


000140 

OOEF 

9F87 




STB 

1 , SB 7 


000141 





# 

INPUT 

(INITIALIZE, OUTPUT CONTROL 000); 


000142 





**; 




000143 





** TIME 

THE BlNC INSTRUCTION, TO OBTAIN SYSIEM SHEEP* 


000144 





**; 




000145 

00 FO 

ABCO 

0000 

p 


LAB 

2,IOWGRJ 


000146 

00F2 

AFCO 

F F11 



STB 

2,P + 4 


000147 

00F4 

03C0 

0000 

p 


LNJ 

5 , J 10 


00014b 

OOF 6 

9FC0 

0000 

p 


5Tb 

$B1,TEMPCH 


000149 

OUFb 

OF 80 


r 


B 

> + $A 

£ 

000150 

00F9 

83C0 

0000 

p 


JMP 

1 IMER 

1 

000151 

00F9 





ORG 

$-l-$AF 

I 

000152 

OOFA 




$E 

ORG 

$+1 


000153 

OOF A 




S>6 

OKS 

$-1+$AF 


000154 

OOFB 




$C 

ORG 

S+l 


000155 

00F6 

82C0 

FFFP 


$A 

Lb 

-$E,=X*40* 



OOFO 

0040 







000156 

OOFE 

0581 

0000 

T 


BBF 

+ $D 


000157 

0100 

ABCO 

FFF9 



LAb 

$B2,-$C 


00015b 

0102 

9802 




LPR 

$R1,$B2 


000159 

0103 

9B92 




LAb 

$61,$62 » $R 1 


000160 

0104 

OF 81 

0000 

T 


B 

+ $F 


000161 

0106 

9BC8 

FFF 3 


$D 

LAb 

$61,*-$8 


000162 

0108 

9FC0 

0005 

P 

$F 

STB 

$61,ISAC+4+SAF 


000163 

010A 

9CC0 

0000 

P 


LDb 

$B1,TEMPCH 


000164 





# 

APDRESS OF LABEL (ISACP,TIHER); 


000165 





# 

ZHRTCC : = lOO; 


000166 

010C 

6C64 




LPV 

6,100 


000167 

0100 

EF40 

0000 

P 


STk 

6,ZHRTCC 


00016b 





* 

ZHRTCi : = lOO; 


000169 

01 OF 

EF40 

0000 

P 


STR 

6,ZHRTC1 


000170 





* 

ZHRTCL ;= 20; 


000171 





**; 




000172 





** COUNT IN R6,R7 

until interrupted; 


000173 





**; 




000174 

0111 

4C14 




LPV 

4,20 


000175 

0112 

Cr 40 

0000 

P 


STR 

4,ZHRTCC 


000176 

0114 

0004 




DC 

4 


000177 





* 

CLOCK 

on; 


00017b 





* 

•COPE*’BEGIN*J 


000179 





* 


CL = $R6 


000180 





* 


CL = $R7 


000181 

0115 

8756 




CL 

= $R 6 


000182 

0116 

8757 




CL 

= $R7 


000183 





# 


KBJ 


000184 





* 

LOOP 

BINC $R7,$ 


000185 





* 


BINC $R6*<LOOP 


000186 

0117 

7 781 

f FFF 


LOOP 

BINC 

SR7 ,$ 


000187 

0119 

6 780 

Oil? 



BINC 

$R6* <LOJP 


000188 





* 


JCB] 


000189 





* 


XPEF ST OPT 1,RUPT1 


000190 





* 

STOPT I 

NOP >$-l 


000191 





# 

) *ENP 

•; 


000192 


Ollb 




XPEF 

STOPT1,RUPT I 




0242 







000193 

0116 

0F7F 



STUPTI 

NOP 

>$-l 


000194 

011c 

0005 




DC 

5 


000195 





* 

CLOCK 

uff; 


000196 





* 

•COPE*’BEGIN*] 


000197 





* 


P1V $R7,=10000 NUMBER OF B1NCS / 83 USEC Af 60 HZ 


000198 





* 


STR $R7,J SPEED 


000199 

0110 

F 370 

2710 



PI V 

$R7, = 10000 

W 

000200 

011F 

FF 40 

0000 

P 


SIR 

$R7,SPEED 

I 

000201 

0121 

9FC0 

0000 

P 


5Tb 

$B1,IEMPCH 


000202 

0123 

OF80 


T 


B 

> ♦ $A 


000203 

0124 

83C0 

0000 

P 


JMP 

CPRUPT 


000204 

0124 





ORG 

$-l-SAF 




PAGE 80 


TITLE CRMS3**REV G•,CARDREADER / PUNCH TV (SAP) 


000205 

0123 




$E 


ORG 


$♦1 

000206 

0125 




SB 


ORG 


S-l+SAP 

000207 

0126 




SC 


ORG 


$♦1 

000208 

0126 

82C0 

FFFD 


SA 


LB 


-$E*sX*40* 


0128 

0040 








000209 

0129 

0581 

0000 

T 



BBP 


♦ SD 

000210 

0128 

AbCO 

FFF9 




LAB 


$62 *~$C 

0002 11 

0120 

9802 





LDR 


$R1*$B2 

000212 

012E 

9892 





LAB 


$61 * SB2•SR 1 

000213 

012F 

0 F 81 

0000 

T 



B 


♦ SF 

000214 

0131 

9bC8 

FFF3 


SD 


LAb 


$61**-$3 

000213 

0133 

9FC0 

0005 

P 

SF 


ST b 


$B1 * ISAP+4+SAF 

000216 

0135 

9CC0 

0000 

P 



LDB 


SB1♦TEMPCH 

000217 


0137 



L12 


EQU 


S 

000218 





# 



•FOR* 

1;= 0 * ST EP• 1 •UNTIL* 63 

000219 

0137 

8740 

FECA 




CL 


u+z 

000220 





* 



* DO* 


000221 

0139 

E840 

FEC8 


L13 


LDR 


6,0+2 

000222 

013b 

6EC1 





ADV 


6,-63 

000223 

013C 

6 A14 





6GZ 


6*>L14 

000224 

013D 

9840 

FEC4 




LDR 


1 *D + 2 

000223 

013F 

9640 

0000 

P 



MUL 


i*ZV$AP 

000226 

0141 

OFOO 

0000 

X 

N5 


NOP 


<ZHlSAZ 

000227 

0143 

9A40 

FFFb 




ADD 


1 $Nb+l 

000228 





* 




LOCATI ON * (ZN1SAZ)♦i*ZVDAPe •LOCATION *(ISARD@0©)i 

000229 

0145 

9F40 

FEBD 




STR 


1 *D^3 

000230 

0147 

OFOO 

0002 

X 

N6 


NOP 


<ISAD^2 

000231 

0149 

E84Q 

FFFb 




LDR 


6 *N6+1 

000232 

014b 

tP 48 

FEB 7 




STR 


6»*D+3 

000233 

014D 

8AC0 

FEB4 




INC 


D+2 

000234 

014F 

OFEA 





6 


>L13 

000233 


0150 



L14 


EOU 


S 

000236 

0150 

9PC0 

0000 

p 



STB 


$B1 *TEMPCH 

000237 

0152 

0F80 


T 



B 


>^$A 

000236 

0153 

83C0 

0000 

P 



JMP 


DEV IH 

000239 

0153 






ORG 


S-l-SAF 

000240 

0154 




Sb 


ORG 


$♦1 

000241 

0154 




SB 


ORG 


S*1♦SAF 

000242 

0153 




SC 


ORG 


$♦1 

000243 

0155 

82C0 

FFFD 


SA 


LB 


-$E**X*4Q* 


0157 

0040 








000244 

0156 

0381 

0000 

T 



BBP 


♦ SD 

000243 

015A 

ABCO 

FFF9 




LAb 


$62*-$C 

000246 

0I5C 

9802 





LDR 


SRI,$62 

000247 

013D 

9692 





LAb 


$611$62•SR 1 

000248 

013t 

OP 81 

0000 

T 



b 


♦ $F 

000249 

0160 

9pC0 

FFF3 


SD 


LAB 


$Bl**~$d 

000250 

0162 


0005 

P 

SP 


STB 


SB1*1SAD^4*$AF 

000251 

0164 

9CC0 

0000 

P 



LDB 


$bltTEMPCH 

000252 

0166 

6C3F 



L16 


LDV 


6*63 

000253 

0167 

EF40 

0000 

P 



STR 


6 * CPLEVE 

000254 





* 



* FOR * 

CPLEVELJ=63 •STEP* -1 'UNTIL* 0 

000255 





# 



•DO* 


000256 





* 



• BEGIN * 

000257 

0169 

E840 

0000 

P 

L17 


LDR 


6,CPLEVE 

000256 

016b 

6801 

0139 




BL2 


6 * L18 

000259 





# 




•INTEGER* TEMP* 

000260 





#* 

RUPT 

b; 



000261 





* 




ZHIAFB ;= 0? (CLEAR AUIV1IY FLAGS) 

000262 

016P 

8740 

0000 

P 



CL 


ZHJAPB 

000263 

016r 

96C0 

0000 

P 



LAB 


i*ZHIAF8 

000264 

0171 

9PC0 

FE92 




ST b 


1 * D^4 

000263 





* 




©•LOCATION* (ZHIAPB)+1© l- Oi 

000266 

0173 

1C01 





LDV 


1*1 

000267 

0174 

8718 

0004 




CL 


*<D+4#$R1 

000268 

0176 

OFOO 

0000 

X 

N7 


NOP 


<zhiapb 

000269 

0178 

A840 

FFFb 




LDR 


2 * N 7 ♦ 1 

000270 

017A 

AA40 

0000 

p 



ADD 


2.ZHIAFB k 

000271 





* 




©•LOCATION* (ZHIAFB)♦Z+ZHJAFo© i- 0? 

000272 

017C 

AP 40 

FE87 




STR 


2 *D^4 

000273 

017b 

3C02 





LDV 


3*2 

000274 

017F 

8738 

0004 




CL 


*<D^4.$R3 

000273 

0181 

OFOO 

0000 

X 

N8 


NOP 


<ZHIAP B 

000276 

0183 

A840 

FFFb 




LDR 


2 *N8+1 

000277 

0183 

AA40 

0000 

p 



ADD 


2*ZHIAP3 

000278 





* 




©•LOCATION* (ZHIAFB)♦B^ZHIAPd© ?= 0? 

000279 

0187 

AF40 

FE7C 




STR 


2 * D + 4 

000280 

0189 

1C03 





LDV 


1*3 

000281 

016A 

8718 

0004 




CL 


*<D+4,$Rl 

000282 

018C 

L840 

0000 

p 



LDR 


6 *CPLEV£ 

000283 

018E 

E470 

8080 




OR 


6 * *-32640 

000284 

0190 

EF40 

0000 

p 



STR 


6,LEVTYP 

000285 

0192 

8E40 

0000 

p 



LEV 


LEVTYP 

000286 





* 




LEV (*HEX*(8080)*CPLEVEL )\ (RUN AT NEW CP LEVEL) 

000287 





#* 

FIRST 

TIME 

- SE 

T IV TO POINT TO PROGRAM ISA? 

000288 





** 

OTHER 

TIMES - S 

ET IV TO POINT TO DEVICE 1SA5 

000289 





* 




•IF* CP LEVEL •EQ* 63 

000290 





* 




• THEN* 

000291 

0194 

E840 

0000 

p 



LDR 


6 * CPLEVE 

000292 

0196 

6D3F 





CMV 


6*63 

000293 

0197 

0991 





BNE 


>L 19 

000294 

0198 

9840 

0000 

p 



LDR 


1»ZV$AF 

000295 

019A 

1F3F 





MLV 


1*63 

000296 

0198 

OFOO 

0000 

X 

N9 


NOP 


<ZHISAZ 

000297 

019D 

9A40 

FFFb 




ADD 


1*N9+1 

000298 





* 




©•LOCATION* (ZH1SAZ)♦63*ZVDAF@ ;*»L0CAT1QN*(1SAID ©0©) 

000299 





# 




•ELSE* 

000300 





## 

RUPT 

c; 



000301 

019F 

9P40 

FE64 




STR 


1 * D+4 

000302 

01A1 

OFOO 

0002 

X 

N1Q 


NOP 


<i SAP+2 

000303 

01 A3 

C840 

FFFb 




LDR 


4*N10^1 

000304 

01 A3 

CP48 

FE5E 




STR 


4*#D+4 

000305 

01A7 

OF 9 2 





B 


>L20 

000306 


01A8 



L19 


EQU 


S 

000307 





# 




©•LOCATION*(ZHISAZ)^(CPEEVEL+l)*ZVDAP©Js 

000306 

01A6 

9840 

0000 

p 



LDR 


1*CPLEVE 

000309 

01AA 

IbOl 





ADV 


1*1 

000310 

01AB 

9B40 

0000 

p 



MUL 


1 * ZVSAF 

000311 

01 AD 

OFOO 

0000 

X 

Nil 


NOP 


<ZHISAZ 

000312 

01AF 

9A40 

FFFb 




ADD 


1 * N11 ♦ l 

000313 





# 




•LOCATION* (ISARD ©0©); 

000314 





#* 

RUPT 

e; 



000315 





** l 

DEVICE 

LEVEL LOOP? 



TITLE CRMS3**REV G**CAKDREADER / PUNCH TV (SAP) PAGE 81 


000316 

01B1 

9F40 

FE53 




STR 

1*0 + 5 

000317 

01B3 

OFOO 

0002 

X 

N12 


NOP 

<1SAO+2 

000318 

0165 

E840 

FFFE 




LOR 

6«N12+1 

000319 

0167 

EF48 

FE4D 




STR 

6 **0+5 

000320 


0169 



L20 


EQU 

$ 

000321 

0169 

6C3F 



L21 


LDV 

6*63 

000322 

016A 

EF40 

0000 

p 



STR 

6.0LVL 

000323 

000324 





# 

* 



JFOR* DEVICE LEVEL 5=63 * STEP* -1 *UNTlL» 0 
•BEGIN* 

000326 





* 



000326 

016C 

E840 

0000 

p 

L22 


LOR 

6 * DLVL 

000327 

000326 

016E 

6801 

00E2 


* 


BL2 

6 «L23 

•INTEGER* CPIO; 

000329 





*# 

RUPT 

f; 

000330 

oico 


0000 


* 



DEVICE SEMAPHORE 5 s 05 (CLEAR IV HANDLER FLAG) 

000331 

8740 

p 



CL 

OVSEM 

000332 

01C2 

C840 

0000 

p 



LOR 

4 %SREG 

000333 

01C4 

C570 

03C0 




ANO 

4*s960 

000334 

01C6 

C440 

0000 

p 



OR 

4 *DLVL 

000336 

01C8 

CF40 

FE3B 




STR 

4*0 + 4 

000336 

01CA 

F6C0 

FE3A 


* 



CPIO ;= SREG ‘MASK* •HtX• (03C0) ‘UNION* DEVICELEVEL 

000337 




LA6 

7*0 + 5 

000336 

01CC 

9BC0 

FE37 




LAB 

1 *0+4 

000339 

000340 

0 ICE 

9F87 



# 


STB 

1 *$B7 

lNQUT (CPIO* OUIPUT INTERRUPT §06)5 

000341 





** ; 



000342 

000343 





#* 
**: 
N13 

NOW 

AN ATTEMPT 

IS MADE TO GET AN INTERRUPT VIA 5T0P 1/05 

000344 

01CF 

OFOO 

0002 

X 


NOP 

<IOWORD+2 

000346 

0101 

084Q 

FFFE 




LOR 

5 *N13 +1 

000346 

0103 

OF 40 

FE32 




STR 

5*0+6 

000347 

0105 

03C0 

0000 

p 



LNJ 

5 * J10 

000346 


E870 

EF40 



# 


TEMP ;s •HEX• (40U0); 

000349 

000350 

0107 

0109 

4000 

FE29 




LOR 

STR 

6 * s16384 

6*0 + 3 

000351 

01D6 

F6C0 

FE29 




LAb 

7*0 + 5 

000352 

0100 

96C0 

FE25 




LA6 

1*0+3 

000353 

010F 

9F87 





ST 6 

1 *$B7 

000354 





* 


INGUT (TEMP, OUIPUT CONTROL @0@)5 

000355 

01E0 

A6C0 

0000 

p 



LA6 

2 *IOWORJ 

000356 

01E2 

AFCO 

FE23 




STB 

2*0+6 

000357 

01E4 

D3C0 

0000 

p 



LNJ 

5 * J10 

000356 


F840 



* 


•CODE*‘BEGIN* ) 

000359 

01E6 

0000 

p 



tfic 

$R7,SPEED 

000360 

01E6 

7701 

FFFF 




$R7 *$ 

000361 








JCBJ 

000362 





* 



NOP $) 

000363 

01EA 

OFO1 

FFFF 




NOP 

$ 

000364 




# 



'IF* DEVICE LEVEL *E0» 0 

000365 

01EC 

E840 

0000 

p 



LOR 

6 , DLVL 

000366 

01EE 

6901 

ooic 




BE2 

6 *L24 

000367 





* 



•JR* DEVICE LEVEL *GE * CP LEVEL 

000366 





* 



•THEN* 

000369 





* 



•GO TO* RUP1 G5 

000370 

01FO 

E940 

0000 

p 



CMR 

6KPLEVE 

000371 

01F2 

0881 

0018 




bage 

L24 

000372 





# 


•IF* DEVICE SEMAPHORE »NE* 0 

000373 





* 



• THEN* 

000374 





* 



•GO TO* RUPT N5 

000375 

01F4 

C840 

0000 

p 



LOR 

4*DVSEM 

000376 

01F6 

4981 

00A6 




BNE2 

4,L27 

000377 

01F6 




* . 



LABEL 2 ;= ‘LITERAL* (Ri) 5 

000376 

0870 

5231 




LOR 

5*s21041 

000379 

01 FA 

DF4Q 

0000 

p 



STR 

5*LABEL2 

000380 

01FC 

D840 

0000 

p 



LOR 

$K5 * DLVL 

000381 

OlFt 

C840 

0000 

p 



LOR 

$R4,CPLEVE 

000382 

0200 

03C0 



* 



LOAD R4 R5 (CP LEVEL, uEVKe LEVEL) 5 

000383 

0000 

p 



LNJ 

5 * JRE 

000384 





# 



REPORT ERROR 5 

000385 


FBCO 






PJT TEXT ("* DIDN'T RUPT - SHOULD HAVES")5 

000386 

0202 

FE02 




LAB 

7 *D + 5 

000387 

0204 

9BC0 

FE2C 




LAB 

1 * T 28 

000386 

0206 

9F87 





STB 

1 * SB7 

000389 

0207 

D3C0 

0000 

p 



LNJ 

5 * VKPT 

000390 





* 



•GO TO* FRESH START; 

000391 

000392 

0209 

83C0 

0000 

p 

* 


RUPT G; 

JMP 

FRESHS 

000393 


020b 



L24 


EQU 

S 

000394 





* 



•IF* DEVICE SEMAPHORE • NE * 0 

000395 





# 



•THEN* 

000396 





* 



* BEGIN* 

000397 

0206 

E840 

OOOO 

p 



LOR 

6,OVSEM 

000398 

0200 

6901 

0014 




BE2 

6 * L30 

000399 





* 



LABEL 2 J- 'LITERAL* <R2)5 

000400 

020F 

C870 

5232 




LOR 

4 * = 21042 

000*01 

0211 

CF40 

0000 

p 



STR 

4,LABEL2 

000402 

0213 

0840 

0000 

p 



LOR 

$R5 *DLVl 

000403 

0215 

C840 

0000 

p 



LOR 

$R4*CPLEVE 

000404 





* 



LOAD K4 R5 (CP LEVEL* uEVICE LEVEL)5 

000405 

0217 

03C0 

0000 

p 



LNJ 

5 * JRE 

000406 





# 



REPORT ERROR? 

000407 

0219 

FBCO 



* 



PUT TEXT (”* RUPT WHEN SHOULDNJTS")5 

000408 

FDEb 




lab 

7*0+5 

000409 

0216 

9BC0 

FE24 




lab 

1 * T3I 

000410 

0210 

9F87 





STB 

1 * SB 7 

000411 

02 IE 

D3C0 

0000 

p 



LNJ 

5 * VKPT 

000412 





# 



•GO TO* FKEi>H START; 

000413 

000414 

0220 

83C0 

0000 

p 

# 


JMP 

FRESHS 

•END* 5 

000415 





#* 

RUPT 

h £qu 

000416 


0222 



L30 

$ 

000417 





* 



•IF* OEVICE LEVEL *EQ» 0 

000418 

0222 

E840 

0000 

p 



LOR 

6 *DLVL 

000419 

0224 

6903 





bE2 

6 * >L32 

000420 





* 


•JR* DEVICE LEVtL *EU* 63 

000421 





* 



•THEN* 

000422 








'BEGIN* 

000423 





#* 

RUPT 

M - INITIALIZE TO CLEAR PENDING RUPT? 

000424 

0225 

603 F 





CMV 

6*63 

000425 

0226 

098E 





BNE 

>L33 

000426 

0227 

FBCO 

FOOD 


L32 


lab 

7 ,D+5 

000427 

0229 

9BC0 

0000 

p 



lab 

1,BINARY 

000*26 

0226 

9F87 





5TB 

1 * SB 7 



TITLE 


CRMS3UREV G*,CARDREADER / PUNCH TV (SAP) 


PAGE; 82 


000429 




000430 

022C 

ABCO 

0000 

000431 

022E 

AFCO 

hpD7 

000432 

0230 

D3C0 

0000 

000433 




000434 

0232 

0F81 

006A 

000433 




000436 


0234 


000437 




000438 

0234 

9FC0 

0000 

000439 

0236 

9680 

0242 

000440 




000441 

0238 

9FC0 

0005 

000442 

0Z3A 

9CC0 

0000 

000443 

023C 

E870 

803F 

000444 

023E 

EF40 

0000 

000443 




000446 

0240 

8E40 

0000 

000447 




000446 




000449 




000430 

0242 

0FQ1 

FFFF 

000431 

0244 

F870 

OOFF 

000452 




000453 




000454 




000455 

0246 

7701 

FFFF 

000456 

0248 

8C57 


000457 




000456 

0249 

FF40 

FDB9 

000459 

024B 

8800 

0003 


024D 

0001 


000460 




000461 




000462 




000463 

024E 

E840 

FDB4 

000464 

0250 

E570 

007F 

000465 

0252 

£940 

0000 

000466 

0254 

0901 

0014 

000467 




000468 

0256 

C870 

5233 

000469 

0258 

Cr 40 

0000 

000470 

025A 

D840 

0000 

000471 

025C 

C840 

FDA6 

000472 




000473 

025E 

D3C0 

0000 

000474 




000475 




000476 

0260 

FBCO 

FDA4 

000477 

0262 

9BC0 

FDE9 

000478 

0264 

9F87 


000479 

0265 

D3C0 

0000 

000480 




000481 

0267 

83C0 

0000 

000482 




000483 




000484 


0269 


000485 




000486 




000487 

0269 

E840 

0000 

000488 

026B 

E940 

0000 

000489 

026D 

0901 

0009 

000490 

026F 

C840 

0000 

000491 

0271 

C470 

8080 

000492 

0273 

CF40 

0000 

000493 

0275 

8E40 

0000 

000494 




000495 




000496 


0277 


000497 

0277 

9FC0 

0000 

000498 

0279 

OF 80 


000499 

027A 

83C0 

0000 

000300 

027A 



000501 

0276 



000502 

0276 



000503 

027C 



000504 

027C 

82C0 

FFFD 


027E 

0040 


000505 

027)- 

0581 

0000 

000506 

0281 

ABCO 

FFF9 

000507 

0283 

9802 


000508 

0284 

9B92 


000509 

0285 

0F81 

0000 

000510 

0287 

9BC8 

FFF3 

000511 

0289 

9FC0 

0005 

000512 

0286 

9CC0 

0000 

000513 




000514 

028D 

9840 

0000 

000515 

028F 

9640 

0000 

000516 

0291 

OFOO 

0000 

000517 

0293 

9A40 

FFFE 

000518 




000519 




000520 

0295 

9F40 

FD6F 

000521 

0297 

OFOO 

0002 

000522 

0299 

E840 

FFFE 

000523 

0296 

EF48 

FD69 

000524 




000525 

029D 

88C0 

0000 

000526 

029F 

0F81 

FF 1C 

000527 




000528 




000329 

02A1 

88C0 

0000 

000330 

02A3 

0F81 

FEC5 

000531 


02A5 


000532 




000533 

02A5 

8740 

0000 

000534 

02A7 

9BC0 

0000 

000535 

02A9 

9FC0 

FD59 

000536 




000537 

02AB 

1C01 


000538 

02AC 

8718 

0003 

000539 

02AE 

E870 

8096 


2UQW0RD 
2 * D + 6 
SfJIO 


INQUT UNI I IALUEiOUTPUT CUNTRQL £00) 5 


•GO TQ» RUPT N5 


•CODE*'BEGIN*1 
$B111 EMPCH 
$B1♦ <RUPT1 

JCBJ 

$BIU5A3 + 44$AF 
$61 * TEMPCH 
6«s-32705 
6*LEVTYP 

LEV (•HEX* (8000)*63)?(MOVE CP - LET RUP f HAPPtN) 

LEVTYP 

• CODE*'BEGIN *) 

NOP $ 

LDR $R7 ♦ s2J>!> 


$R7 *D+3 

<ZHIAFB+3»sZ*0001* 

• IF* «blTS* e7,Oe TEMP •NE * DEVlCt LtVEL 
•THEN* 

•BEGIN* 

6 *D+3 

6 t *2 * 007F * 

6 % DLVL 
L34 


4»?21043 
4,LABEL2 
$R5 »DLVw 
$R4,P+3 


7*D + 5 
1 ♦ T35 
1 * $B7 
5*VKPT 


•LITERAL* <R3) ; 


LOAD R4 Kb I TEMP * DEVICE LEVEL)? 

REPORT ERROR? 

PUT TEXT ("* PENDING RUPT WHEN CP *NE» 63$")? 


•GO TO* FRESH START? 


•IF* DEVICE LEVEL *NE« CP LEVEL 
* THEN* 

LDR 6,DLVL 

CMR 6 fCPLtVE 

BE L36 

LDR 4,CPLEVE 

OR 4 $5-326 40 

STR 4*LEVTYP 

LEV LEVTYP 

LEV («HEX*(8080)»CP LEVEL)? (00 TO OLD CP LEVEL) 
RUPT K - RESTORE POINTER TO HANDLER? 

EOU $ 

STB $61» TEMPCH 

B > + $A 

JMP DEVIH 

ORG $-l-$AF 

ORG $+1 

ORG $-l+$AF 

ORG $*-1 

LB -$E t =X•40 * 

BBF + $D 

LAB $62 *-$C 

LDR $Rli$B2 

LAB $61»$62• $R 1 

B + $F 

LAB $B1»*~$3 

STB $BlUSAD+4 + $AF 

LDb $61»TEMPCH 

@•LOCATION* (ZH1SAZ)♦CP LEVEL*ZVDAFi» ;s 
LDR 1 $CPLEVE 

MUL I *ZV$AF 

NOP <ZH1SAZ 

ADD UN14+1 

•LOCATION* USAID &0§) ? 


RUPT N; 
STR 
NOP 
LDR 
STR 


** RESET INTERRUPTS? 


i * P+3 
< 1 SAP + 2 
6 *N15+1 
6**D+5 

•END* ? 

DLVL 
L22 
•END* ? 


(OF DEVlCt RUPT LOOP) 


(OF CP RUPT 


DEC CPLEVE 

B L17 

EOU $ 

ZHIAFB JsO? 

CL ZHIAFB 

LAB UZHIAF3 

STB 1*D+3 

LOCAT ION* (ZHIAFB) + 16 

bc V *<D+3*$R,1 

LDR 6»»~32618 


(CLEAR IV FLAGS) 


W 




TITLE CRMS3,•REV G*,CARDREADER / PUNCH TV (SAP) PAGE 83 


000540 

0260 

EF40 

0000 

P 


STR 


6.LLVTYP 



000341 





* 

LEV (»HEX» (8080),22) ? (RESTORE OLD LEVEL) 


00034* 





** SET 

UP OLD 

HANDLERS? 



000343 

0262 

8E40 

0000 

P 


t6» 


' LEVTYP 



000544 

0264 

9840 

0000 

P 



l,ZVSAF 



000545 

0266 

1F 14 




MLV 


1*20 



000546 

0*67 

OFOO 

0000 

X 

N16 

NOP 


<ZHISAZ 



000547 

0269 

9A40 

FFFE 



ADD 


UN16+1 

USACD 


00034b 



FD47 


# 

& * LUCAT1 ON• UH1SAZ)♦*VDAF**QS Js •LOCATION 1 

eoe) 

000349 

0266 

9F40 



STR 


l*D+3 



000350 

0*60 

OFOO 

0002 

X 

N1 7 

NOP 


<iSAC+2 



000351 

02 BF 

E840 

FFFE 



LDR 


6 *N17*1 



00055^ 

02C1 

EF4b 

FD41 



STR 


6,*D^3 



000353 

02C3 

9840 

0000 

p 


LDR 


1,ZVSAF 



000554 

02C3 

1F15 




ML V 


1,21 



000353 

02C6 

OFOO 

0000 

X 

NIB 

NOP 


<ZHISAZ 



000556 

02C8 

9A40 

FFFE 



ADD 


1, N18 ♦ 1 



000357 


9F40 



# 

^LOCATION* (ZH1SAZ) ♦ ZVDAF**!®? •LOCATION’ 

(I SARD 

eoe) 

000556 

02CA 

F 038 



STR 


1, DO 



000559 

02CC 

OFOO 

0002 

X 

N19 

NOP 


<1SAD+2 



000560 

02CE 

E840 

FFFE 



LDR 


6 $N19*1 



000561 

0200 

EF46 

F032 



STR 


6,*DO 



00056*: 

020* 

9840 

0000 

p 


LDR 


1,2VSAF 



000363 

0*04 

,1F16 




MLV 


1*22 



000564 

0203 

OFOO 

0000 

X 

N20 

NOP 


<ZHISAZ 



000363 

0*07 

9A40 

FFFE 



ADD 


l,N20*l 



000566 





# 

^•LOCATION* UHlSAZ)+ZVDAF**2e •LOCATION* 

(I SAID 

eo@) 

000567 

02D9 

9F40 

F029 



STR 


1 *DO 



000366 

0206 

OFOO 

0002 

X 

N21 

NOP 


< 1 SAP+2 



000569 

0*00 

E840 

FFFE 



LDR 


6 *N2 l + l 



000370 

02DF 

EF48 

FD23 



STR 


6 ,*DO 



000571 

02E1 

9FC0 

0000 

p 


ST 6 


SB1* TEMPCH 



00057*: 

02E3 

OF 80 


T 


b 


> + SA 



000573 

02E4 

83C0 

0000 

P 


JMP 


LEV20 



000374 

02E4 





ORG 


S-l-SAF 



000575 

02E5 




$E 

ORG 


$♦1 



000576 

02E5 




$6 

ORG 


$~1♦SAF 



000577 

02E6 




SC 

ORG 


$♦1 



000376 

02E6 

82C0 

FFFD 


$A 

LB 


-$E,-X*40* 




02E8 

0040 









000379 

02E9 

0581 

ABCO 

0000 

T 


BBF 


♦ SD 



000580 

0*tb 

FFF9 



LAd 


$62,-$C 



000581 

02EO 

9802 




LDR 


SRI,$62 



00058* 

02EE 

9692 




LAd 


$B1,$62.$R1 



000383 

02EF 

0F81 

0000 

T 


B 


♦ $F 



000384 

02F1 

m 

FFF3 


$D 

LAB 


$61,*-$3 



000583 

02F3 

0005 

P 

$F 

STB 


$61 $ ISA04 + SAF 



000586 

02F5 

9CC0 

0000 

P 


LDb 


SBl,TEMPCH 



000387 





* 

ADDRlSS OF LABEL (ISACP,LtV20); 



000388 

02F7 

9FC0 

0000 

P 


ST B 


Sbl* TEMPCH 



000389 

000590 

02F9 

02FA 

OF 80 
83CO 

0000 

T 

P 


b 

JMP 


> + SA 

LEV21 



000391 

02FA 





ORG 


S-i-SAF 



00059* 

02 F 6 




$E 

ORG 


$♦1 



000593 

0*Fb 




SB 

ORG 


$*• 1 ♦SAF 



000594 

02 PC 




SC 

QRG 


$♦1 



000595 

02FC 

82C0 

FFFD 


SA 

LB 


-$E,=X*40* 




02 Ft 

0040 








000396 

02 FF 

0581 

0000 

T 


BBF 


♦ SD 



000597 

0301 

ABCO 

FFF9 



lab 


$62,-SC 



000598 

0303 

9802 




LDR 


SKI,$62 



000399 

0304 

9692 




LAd 


SB1,$62.SRI 



000600 

0305 

0F81 

0000 

1 


B 


♦ SF 



000601 

0307 

96C8 

FFF 3 


SD 

lab 


$61,*-$3 



00060* 

0309 

9FC0 

0005 

P 

SF 

STB 


$61,1SAJ+4+SAF 



000603 

0306 

9CC0 

0000 

P 


LDB 


$61,TEMPCH 



000604 





* 

ADDKtSi 

> UF LABEL (1SARP,LEV21)? 

(OF RUP1 PROCEDURE) 



000605 





* 

•END*; 




000506 





# 

•end*; 


(OF SEGMENT) 



000607 





* 

•FINISH* 




000608 

0300 

83C8 

FCF2 



JMP 


*D 



000609 


030F 



LI 

EQU 


S 



000610 

030F 

83C0 

0000 

P 


JMP 


ZKSEX 



000611 






XLOC 


ZKSEX 



00061* 






CTRL 

LINK 

ZKSEX 



000613 






XLOC 


ZHISAZ 



000614 






XLGC 


ZHRTCI 



000613 






XLJC 


ZHRTCL 



000616 






XLOC 


ZHRTCC 



000617 






XLOC 

LINK 

ZVSAF 



000618 






CTRL 

ZVSAF 



000619 






XLOC 


VKPT 



000620 






XLOC 


VKPNT 



000621 






XLOC 


ID 



00062* 






XLOC 


STATUS 



000623 






XLOC 


SETTUA 



000624 






XLOC 


BINARY 



000625 






XLOC 


LABEL1 



000626 






XLOC 


LABEL* 



000627 






XLOC 


SPEED 



000628 






XLOC 


DLVL 



000629 






XLOC 


DVSEM 



000630 






XLOC 


CPLEVE 



000631 






XLOC 


LEVTYP 



00063* 






XLOC 


TEMPCH 



000633 






XLOC 


SREG 



000634 






XLOC 


ZHIAFB 



000635 






XLOC 


1 SAC 



000636 






XLOC 


ISAD 



000637 






XLOC 


1SAP 



000638 






XLOC 


1UW0RD 



000639 






XLOC 


JRE 



000640 






XLOC 


JIO 



000641 






XLOC 


JSE 



00064* 






XLOC 


JCS 



000643 






XLOC 


FRESHS 



000644 






XLOC 


TIMER 



000645 






XLOC 


CPRUPT 



000646 






XLOC 


DEV 1H 



000647 






XLOC 


LEV20 



000648 






XLOC 


LEV21 



000649 

0311 

005D 




END 


ZVKJLI,ZVK JLI 



0000 ERR COUNT 












TITLE: 


PAUL 


84 


eL 


CRM53*»ktV G*♦CARPKtAPLH 


/ PUNCH TV (SAP) 



4 "' "N 

. y 





TITLE 


CRMS3 *'REV G**CAKDREADER 


/ PUNCH TV (SAP) 


PAUL 85 


ZVKJuK 

.LIST 





05/19/78 

1427.3R W 05/19/78 1422.4 31551300U0 

000001 







TITLE 

ZVKJLK *•REV 00* 

000Q02 


G06C 





XDEF 

KJLK 

000003 


0067 





XDEF 

ZVKJLK 

00Q004 


0006 




ZKCOM 

COMM 

8 

0QQ005 

0000 

0000 




0 

RESV 

8*0 

000006 

0006 

0010 




T5 

PC 

16 

000007 

0009 

5245 

4144 

2F50 



TEXT 

•KEAP/PJNCH TESTS* 


oooc 

554E 

4348 

2054 







4553 

5424 






000006 

0011 

0013 




T7 

PC 

19 

U0QQ09 

0012 

5553 

494E 

4720 



TEXT 

•USING 400 CPM PECK* 


0015 

3430 

3020 

4350 







4020 

4445 

434b 





OOOOiO 

001b 

2400 





TEXT 

•S* 

OOOOli 

001C 

001b 




T9 

PC 

30 

000012 

0010 

4F4E 

4C59 

2043 



TEXT 

•ONLY COL 1-8 CAN H* 


0020 

4F4C 

2031 

2038 







2043 

4146 

2048 





000013 

0026 

4156 

4520 

5055 



TEXT 

•ave punches** 


0029 

4L43 

4845 

5324 





000014 

002C 

0007 




T10 

DC 

7 

000015 

0020 

544F 

5441 

4C20 



TEXT 

•TOTAL *• 


0030 

2400 







000016 

0031 

0006 




T 13 

PC 

11 

000017 

0032 

5245 

4144 

5920 



TEXT 

•READY PECKS» 


0035 

4445 

434b 

2400 





OOOOlti 

0038 

GOOD 




TU 

PC 

13 

000014 

0039 

494C 

4C45 

4741 



TEXT 

•ILLEGAL CARDS• 


003C 

4C20 

4341 

5244 







2400 







000020 

0040 

ooot 




T41 

DC 

14 

000021 

0041 

5245 

4144 

2F50 



TEXT 

•REAU/PJNCHEP S* 


0044 

554b 

4348 

4544 







2024 







000022 

0046 

0022 




T44 

DC 

34 

000023 

0049 

5354 

4154 

5553 



TEXT 

•STATUS ERROR CARPS* 


004C 

2045 

5252 

4F52 







2043 

4152 

4453 





000024 

0052 

204F 

4646 

5345 



TEXT 

• OFFSET STACKED** 


0055 

5420 

5354 

4143 







4045 

4424 






000025 

005A 

000b 




T47 

PC 

14 

000026 

005B 

2C20 

4552 

524F 



TEXT 

•* ERROR EJECTS* 


005L 

5220 

454A 

4543 







5424 







000027 

0062 

0007 




T49 

pc 

7 

000028 

0063 

5645 

5249 

4659 



TEXT 

•VERIFY** 


0066 

2400 







000029 


0067 




zvkjlk 

EQU 

S 

000030 

0067 

8P00 

0001 


K 


SAVE 

<ZKC0M+1*Z'OOli* 


0069 

0011 







000031 






* 

•BEGIN* 


000032 

006A 

0F6 1 

OICO 




b 

LI 

000033 






* 

•INI EGER * KtJ? 

000034 

006C 

DF CO 

FF93 



KJLK 

STb 

5 *D 

000035 






* 

• IF* 

IP •NE » •HEX » (208A) 

000036 






* 

•then 

i 

000037 






* 


•GO TO* END LETTER K? 

000036 

006L 

L840 

0000 


P 


LPR 

6*1D -w 

000039 

0070 

6970 

208A 




cm 

6, = 8330 

000040 

0072 

0981 

01C3 




BNE 

L50 

000041 






* 

PUT NEW TEXT ("READ/PUNCH TESTS"); 

000042 

0074 

F6C0 

FF86 




LAb 

7*0+3 

000043 

0076 

9BC0 

FF 91 




LAb 

1 * T5 

000044 

0078 

9F87 





STb 

1*SB7 

000045 

0079 

D3C0 

0000 


P 


LNu 

5 * VKPNT 

000046 






# 

LABEL 

1 ;= 'LITERAL* (Kl)l 

000047 

007b 

b870 

4B31 




LPR 

6 * = 19249 

000048 

0070 

LF40 

0000 


P 


STR 

6 * LABEL1 

000049 






* 

R UK 

V MOPE ;= * LITERAL• (R)5 

000050 

007F 

4^52 





LDV 

4*82 

000051 

0080 

Cr 40 

0000 


P 


STR 

4.R0RVMJ 

000052 






# 

REAL 

UR PUNCH : = PUNCH gOS; 

000053 

0062 

0800 

0010 


X 


LPR 

5 * <10WURP+16 

000054 

0084 

0F4G 

0000 


P 


STR 

5 *REAPQR 

000055 

0086 

FBCO 

FF7C 




LAb 

7 »P+3 

000056 

0088 

98C0 

0000 


P 


LAd 

1 * BINARY 

000057 

008A 

9F87 





STb 

1 * $B7 

000056 






* 

input 

(INITIALIZE* OUTPUT CUN 1RQL 5 

000059 

008b 

ABCO 

0000 


P 


LAb 

2 *IOWQRD 

000060 

0080 

AFCG 

FF76 




STb 

2 »P+4 

000061 

008F 

P3C0 

0000 


P 


LNJ 

S*JID 

000062 






* 

K ; = 

SET TU HOLLERITH *UNION» *HEX* (80 

000063 

0091 

6840 

0000 


P 


LPR 

6 * SETTOH 

000064 

0093 

6470 

0800 




OR 

6 * = 2048 

000065 

0095 

EF40 

FF6B 




STR 

6 * D+1 

000066 

0097 

FBCO 

FF6B 




LAb 

7 *P+3 

000067 

0099 

9BC0 

FF67 




LAb 

l*P+i 

000068 

009B 

9F87 





STb 

1 * SB7 

000069 






# 

JNOUT 

(K* OUTPUT TASK fcQ£) ; 

000070 

009C 

OFOO 

0005 


X 

N1 

NOP 

<10W0RD+5 

000071 

009L 

C840 

FFFE 




LPR 

4 * N1 + 1 

000072 

OOAO 

CF40 

FF63 




STR 

4 *P + 4 

000073 

00A2 

D3C0 

0000 


p 


LNJ 

5 * J 10 

000074 






# 

STATUS SHOULD BE ; = •HEXU8000); 

000075 

00A4 

E870 

8000 




LPR 

6 * = -32768 

000076 

00A6 

6F40 

0000 


p 


STR 

6 * STATUS 

000077 






# 

ZHRTCC ;= o; 

000076 

00A6 

8740 

0000 


p 


CL 

ZHRTCC 

000079 






# 

ZHKTCI ; = o; 

000080 

OOAA 

8740 

0000 


p 


CL 

ZHRTCi 

000081 






# 

LOW ADDRESS :s ZVPLR; 

000082 






* 

TRY AGAIN; 


000083 

OOAC 

C840 

0000 


p 


LPR 

4 *ZVSLR 

000084 

OQAb 

CF40 

0000 


p 


STR 

4 * LOWADp 

000085 






** CLEAR BUFFER 1 

AND 2 5 

000086 


OOBO 




L6 

EDO 

S 

000087 






* 

• ASK NEW QUESTION ("USING 400 CPM PECKS" 

000086 

OOBO 

FBCO 

FF52 




LAb 

7 * P ♦ 3 

000089 

G0B2 

90CQ 

FF5b 




LAb 

1 *T 7 

000090 

00B4 

9F87 





STb 

1 *$B7 

000091 

GQB5 

03 CO 

0000 


p 


LNj 

5*VKANQ 



TITLE 


CRMS3,'REV G* ,CARDREADER 


/ PUNCH TV (SAF) 


PACE 


86 


000092 





* 

K ;s * HEX• (5900)? 

000093 

00B7 

E870 

5900 



LOR 

6*522797 

000094 

00B9 

EF40 

F F 4 7 



STR 

6 ,D+ l 

000096 





# 


GET CHAR (K) ; 

000096 

OObb 

FBCO 

FF47 



LAB 

7,0+3 

000097 

OOBD 

9BCG 

FF43 



LAB 

1,0+1 

000096 

OOBF 

9 F 8 7 




STB 

1,*B7 

000099 

OOCO 

03C0 

0000 

P 


LNJ 

5,VKGC 

000100 





* 


•IF* K *EQ’ ’LITERAL* (N) 

OQOiOi 





* 


* THEN* 

000102 





* 


•BEGIN* 

000103 

00C2 

E840 

FF3E 



LOR* 

6,0+1 

000104 

00C4 

604E 




CKV 

6,78 

000106 

00C5 

0997 




6NE 

>L8 

000106 





* 


PUT NEW TEXT (“ONLY CUL 1-8 LAN HAVE PUNCHES*")? 

000107 

00C6 

FBCO 

FF3C 



LAB 

7,0+3 

000106 

Q0C8 

9BC0 

FF 53 



LAB 

1, T9 

000109 

OOCA 

9F67 




STB 

1, SB7 

ooono 

OOCB 

03C0 

0000 

P 


LNj 

5»VKPNT 

0001U 





* 


ASK NEW QUESTION ("TOTAL S")? 

000112 

OOCO 

FBCO 

FF 35 



LAB 

7,0+3 

000113 

OOCF 

9BC0 

FF5C 



LAB 

1, T10 

000114 

0001 

9F87 




STfc> 

1, SB/ 

000115 

0002 

03C0 

0000 

P 


LNJ 

5 , VKANQ 

000116 





* 


GET DECIMAL (CARDS SPECIFIED)? 

000117 





* 


• ENO* 

000116 

0004 

FBCO 

FF2E ' 



LAb 

7 ,D+3 

000119 

0006 

9BC0 

0000 

P 


lab 

1,CAR0SS 

000120 

0008 

9F87 




STb 

1 ,$B7 

000121 

0009 

D3C0 

0000 

P 


LNJ 

5,VKGO 

000122 





* 


•ELSE* 

000123 





* 


'BEGIN* 

000124 

OOOB 

0F85 




B 

>111 

000125 


OOOC 



L8 

EQu 

S 

000126 





# 


•IF* K *NE • • LITERAL* (Y) 

000127 





# 


•THEN* 

000126 





# 


•GO TO* TRY AGAIN? 

000129 

OODC 

E840 

FF24 



LOR 

6,0+1 

000130 

OOPE 

6059 




CMy 

6,89 

000131 

OOBF 

0901 




BNE 

>L6 

000132 





# 


•ENO* ? 

000133 


OOEO 



HI 

EQU 

* 

000134 





# 


PUT NEW TEXT ("READY DECK*")? 

000135 

OOEO 

FBCO 

FF22 



LAB 

7,0+3 

000136 

00E2 

9BC0 

FF4E 



LAB 

I , T13 

000137 

00E4 

9F87 




STB 

1 ,$B7 

000138 

00 E 5 

03C0 

0000 

P 


LNJ 

5,VKPNT 

000139 

00E7 

03C0 

0000 

P 


LNJ 

5 , JWR 

000140 





# 


WAIT FOR RETURN? 

000141 





# 


CHECK STATE (SHOULD BE ON)? 

000142 

00E9 

FBCO 

FF 19 



LAB 

7,0+3 

000143 

OOEB 

6C01 




LOV 

6,1 

000144 

OOEC 

EF07 




STR 

6, SB 7 

000145 

OOEO 

03C0 

0000 

P 


LNJ 

5 , JCS 

000146 





# 


LABEL U» 'LITERAL* (K2) ? 

000147 

OOEF 

E870 

4B32 



LOR 

6,519250 

000148 

OOF 1 

EF4Q 

0000 

P 


STR 

6,LABEL1 

000149 

00F3 

FBCO 

FFOF 



LAB 

7,0+3 

000150 

00F5 

9BC0 

0000 

P 


LAB 

1,BUFFI 

000151 

00F7 

9F87 




STB 

1 ,$B7 

000152 

00F8 

OFOO 

0007 

X 

N2 

NOP 

<10W0R0+7 

000153 

OOFA 

C840 

FFFE 



LOR 

4,N2+1 

000154 

OOFC 

CF40 

FF07 



STR 

4 ,D + 4 

000155 





* 


IOLO (BUFFER1 GO@,READ 

000156 

OOFE 

0870 

OOAb 



LOR 

5,5171 

000157 

0100 

0F40 

FF04 



STR 

5,0+5 

000156 

0102 

03C0 

0000 

P 


LNJ 

5 * JIL 

000159 





# 


CHECK STATE (SHOULD BE ON)? 

000160 

0104 

FBCO 

FEFE 



LAB 

7,0+3 

000161 

0106 

6C01 




LOV 

6,1 

000162 

0107 

EF07 




STR 

6 , $B7 

000163 

0108 

03C0 

0000 

P 


LNJ 

5,JCS 

000164 

010A 

D3C0 

0000 

p 


LNJ 

5, JSE 

000165 





# 


CHECK STATUS FOR ERRORS? 

000166 

010C 

6C08 



L14 

LDy 

6,8 

000167 

0100 

EF 40 

FEF3 



STR 

6,0+1 

000168 





# 


* FOR* K;s8 'STEP* 1 ’UNTIL* 79 *00* 

000169 

01 OF 

E840 

FEF1 


L15 

LOR 

6,0+1 

000170 

0111 

6EB1 




ADV 

6,-79 

000171 

0112 

6A12 




BG2 

6,>L16 

000172 





# 


•IF* BUFFER 1 GKG *NE* 0 

000173 





* 


•THEN* 

000174 





* 


•BEGIN* 

000175 

0113 

9840 

FEED 



LOR 

1,0+1 

000176 

0115 

E81Q 

0000 

X 


LDR 

6,<BUFF1*$R1 

000177 

0117 

690A 




BEL 

6,>L17 

000178 

0118 

FBCO 

FEEA 



LAB 

7,0 + 3 

000179 

QUA 

9BC0 

FF10 



LAB 

1,T18 

000180 

011C 

9F87 




STB 

1 ,SB7 

000181 

0110 

D3C0 

0000 

p 


LNJ 

5,VKPNT 

000X8^ 





ik 


PJT NEW TEXT ("ILLEGAL CARD*")? 

000183 





* 


•GO TO* TRY AGAIN? 

000184 

01 IF 

0F81 

FF90 



B 

L6 

000185 





# 


•END* ? 

000186 

0121 

8AC0 

FEDF 


LI 7 

INC 

0+1 

000187 

0123 

OFEC 




B 

>L15 

000188 


0124 



L16 

EQU 

$ 

000189 

0124 

6C01 



L19 

LOV 

6,1 

000190 

0125 

EF40 

FEDC 



STR 

6,0+2 

000191 





* 


•FOR* J;s1 •STEP • 1 'UNTIL* 8 *00* 

000192 

0127 

E840 

FEDA 


L20 

LOR 

6,0+2 

000193 

0129 

6EF 8 




AOV 

6,-8 

000194 

012 A 

6A19 




602 

6,>L21 

000195 

012b 

8740 

FE05 


L22 

CL 

0+1 

000196 





* 


•FOR* KJ5Q ’STEP* 1 ’UNTIL* 7 *00* 

000197 

0120 

E840 

FED3 


L23 

LOR 

6,0+1 

000198 

012F 

6EF 9 




AOV 

6,-7 

000199 

0130 

6A10 




BGZ 

6 ,>L24 

000200 

0131 

E840 

FEOO 



LOR 

6,0+2 

000201 

0133 

6003 




SOL 

6,3 

000202 

0134 

EA40 

FECC 



ADO 

6,0+1 

000203 





* 


BUFFER $J*8+K@ ?5 BUFFER @K0? 

000204 

0136 

9840 

FECA 



LOR 

1,0+1 









TITLE 

CRMS3 , 

* REV G* 

♦CARDREADER 

/ PUNCH TV (SAP) PAGE 87 


oqq205 

0138 

A856 




LOR 

2,=$R6 


000206 

0139 

C81Q 

0000 

X 


LOR 

4,<BUFFU$R1 


000207 

01313 

CF20 

0000 

X 


STR 

4,<BUFFI.$K2 


000206 

0130 

8AC0 

FEC3 



INC 

D+l 


000209 

013F 

OFEE 




B 

>L23 


000210 

0140 

8 ACO 

FECI 


L24 

INC 

0+ 2 


0002ii 

0142 

0FE5 




>L20 


000212 


0143 



L21 

EQU 

$ 


000213 




# 

ERROR 

FLAG ;= O; 


000214 

0143 

8740 

0000^ 

P 


CL 

EKRORF 


000215 

0145 

0004 




DC 

4 


000216 





4 

CLOCK 

on; 


000217 

0146 

6C01 



L25 

LDV 

6,1 


00021b 

0147 

EF40 

0000 

P 


STR 

6 ,CAKDSR 

CARD COJNT ;= 1 ’STEP’ 1 •UNTIL* CARDS 

SPECIFIED-! *00* 

000219 




# 

• FOR* 

000220 





* 

* BEGIN* 


000221 

0149 

E240 

0000 

P 


SOB 

6 ,CAKDSS 


000222 

014B 

8256 




NEG 

= $R6 


000223 

014C 

EF40 

FE66 



STR 

6,D + 3 


000224 

014E 

E840 

0000 

P 

L26 

LOR 

6 ♦CAKDSR 


000225 

0150 

E240 

FEB2 



S06 

6,D + 3 


000226 

0152 

6A01 

008A 



662 

6 ,L27 


000227 



* 

•IF* CARD COUNT *EQ» 1 


000226 





* 


•THEN* 


000229 





* 


* BEGIN* 


000230 

0154 

E840 

0000 

P 


LOR 

6 * CAKDSR 


000231 

0156 

6D01 




CMV 

6,1 


000232 

0157 

0998 




BNE 

>L28 


000233 

0158 

F6C0 

FEAB 



LAB 

7,D + 4 


000234 

015A 

9BC0 

0000 

P 


LAd 

1,BUFFI 


000235 

015C 

9F67 




STB 

1 ,$B7 


000236 


OFOO 

0010 

X 

N3 

NOP 

<1OWQRD+l6 


000237 

C840 

FFFE 



LOR 

4,N3+i 


000236 

0161 

CF40 

FEA3 



STR 

4, D + 5 


000239 





* 


IOLD (BUFFER 1 PUNCH 171)5 

000240 

0163 

0870 

OOAB 



LOR 

5, = 171 


000241 

0165 

DF40 

FEAO 



STR 

5,D+6 


000242 

0167 

03C0 

0000 

P 


LNJ 

5, J l L 


000243 





# 


READ OK PUNCH := PUNCH <*0@; 


000244 

0169 

E800 

0010 

X 


LOR 

6,<IQWORD+16 


000245 

016b 

EF40 

0000 

p 


STR 

6,READOR 


000246 

0160 

03 CO 

0000 

p 


LNJ 

5, JSE 


000247 





* 

CHECK STATUS FOR ERRORS; 


000246 





* 


•END*; 


000249 


016F 



L28 

EQU 

$ 


000250 





* 


•IF* * BIT S* @1,00 CARD COUNT *EU* \ 


000251 





# 


•THEN* 


000252 

016F 

E840 

0000 

p 


LOR 

6,CAKDSR 


000253 

0171 

6613 




bEVN 

6 ,>L29 


000254 

0172 

FBCO 

FE91 



LAB 

7 , D ♦ 4 


000255 

0174 

98C0 

0000 

p 


LAd 

UBUFF2 


000256 

0176 

9F87 




ST b 

1 ,$67 


000257 

0177 

OFOO 

0007 

X 

N4 

NOP 

<IOWOKD+7 


000256 

0179 

C84Q 

FFFE 



LOR 

4,N4+1 


000259 

017b 

CF40 

FE89 



ST R 

4,D+5 


000260 




* 


I OLD (BUFFER 2 600,REAj@0@,171) 


000261 





* 


•ELSE* 


000262 

0170 

0870 

OOAB 



LOR 

5, = 171 


000263 

017F 

0F40 

FE86 



STR 

5 » D + 6 


000264 

0181 

03C0 

0000 

p 


LNj 

5 , J I L 


000265 

0183 

0F92 




6 

>L30 


000266 

0184 

FBCO 

FE7F 


L29 

LAB 

7 , D+4 


000267 

0186 

9BC0 

0000 

p 


LAd 

1,BUFFI 


000266 

000269 

0186 

0189 

9F87 

OFOO 

0007 

X 

N5 

STB 

NOP 

<l8wORD+7 


000270 

018b 

E840 

FFFE 



LOR 

6 *N5 + 1 


000271 

0180 

EF40 

FE77 



STR 

6,D+5 


000272 

018F 

C870 

OOAB 



LDR 

4 , s 17 1 


000273 

0191 

CF40 

FE74 



STR 

4,0 + 6 


000274 

0193 

03C0 

0000 

p 


LNJ 

5 , J I L 


000275 





* 


1 OLD (BUFFER 1 606,kEAt>e0@, 171) ? 


000276 


0195 



L30 

EQU 

$ 


00027/ 





* 


RtAO OR PUNCH ;= READ @005 


000276 

0195 

E800 

0007 

A 


LOR 

6,<I0W0RD+7 


000279 

0197 

EF40 

0000 

p 


STR 

6,READOR 


000280 

0199 

D3C0 

0000 

p 


LNJ 

5,JSE 


000281 





* 


CHECK STATUS FOR ERRORJ? 


000282 

0196 

6C01 



L31 

LDV 

6,1 


000283 

019C 

EF40 

FE65 



STR 

6 ,D+2 


000284 





# 


• FOR* J; = i •STEP* 1 * ON 1lL• 6 *DUi 


000285 

0l9t 

E840 

FE63 


L32 

LOR 

6,D+2 


000286 

01 AO 

6EF8 




ADV 

6,-8 


000287 

01A1 

6A29 




BG2 

6 ,>L33 


000288 

01A2 

8740 

FE5E 


L34 

CL 

D + 1 


000289 





* 


•FOR* K;=0 • STEP» 1 »UNUL* 7 iDO f 


000290 

0 1A4 

E840 

FE5C 


L35 

LOR 

6,0+1 


000291 

01A6 

6EF9 




ADV 

6,-7 


000292 

0 1A 7 

6A20 




BG2 

6 , >L36 


000293 





* 


•IF* 'BITS* 01,00 CARD COUNj *EU« 

' 1 

000294 





* 


•THEN* 


000295 

01A8 

EQ40 

0000 

p 


LDR 

6,CAKDSR 


000296 

OiAA 

6B0E 




BtvN 

6, >L37 


000297 

01 Ab 

C840 

FE56 



LDR 

4,0 + 2 


000298 

01 AD 

4003 




SOL 

4,3 


000299 

01AE 

CA40 

FE52 



ADO 

4 ,D+ 1 


000300 





# 


BUFFER 2 0J*8+K0 ;= BUFFER 

2 @K0 

000301 





* 


* ELSE• 


000302 

0160 

9840 

FE50 



LDR 

1,0+1 


000303 

0162 

A854 




LDR 

2,=$K4 


000304 

0163 

0810 

0000 

X 


LDR 

5,<BUFF2•$R1 


000305 

0165 

0F20 

0000 

X 


STR 

5,<BUPF2.$R2 


000306 

0167 

OF 80 




B 

>L38 


000307 

0168 

E840 

FE49 


L37 

LDR 

6,0 + 2 


000306 

016A 

6003 




SOt 

6,3 


000309 

0166 

EA4Q 

FE45 



ADD 

6 , D+ 1 


000310 





* 


BUFFER 1 0J*8+K0 ;= BUFFER 

i eKe; 

000311 

0160 

9840 

FE43 



LDR 

1,0+1 


000312 

016F 

A856 




LDR 

2,=$K6 


OOQ313 

01C0 

C810 

0000 

X 


LDR 

4,<BUFF1»$Kl 


000314 

01C2 

CF20 

0000 

X 


STR 

4,<BUFFU$R2 


000315 

01C4 

8ACQ 

FE3C 


L38 

INC 

0+1 


000316 

01C6 

OFOt 




b 

>L35 


000317 

01C 7 

SACO 

FE3A 


L36 

INC 

D + 2 




TITLE 


CRMS3 9 * REV G* *CARDREADER / PUNCH TV (SAP) 


PAGE 88 


000318 

01C9 

0F05 




B 

>L32 

000319 


OKA 



L33 

EQU 

$ 

000320 

01CA 




# 


REAP OR PUNCH J = PUNCH eO£? 

000321 

E800 

0010 

X 


LPR 

6 * <IQWQRD+16 

000322 

01CC 

EF40 

0000 

P 


STR 

6 ,READO* 

000323 

OiCE 

IPS? 

FE35 


* 

GENERATE CHECK SUMS (PUNCH £0@); 

000324 



LAp 

7*D+4 

Q00325 

0100 




STR 

6 * SB7 

000326 

0101 

03C0 

0000 

P 


LNJ 

5 * JGC 

000327 

0103 

O3C0 

0000 

P 


LNj 

5 * JSE 

000326 

0105 

O3C0 



* 

CHECK STATUS FQK ERRORS? 

000329 

0000 

P 


L No 

5 *VKGB 

000330 





* 

•IF* GET BREAK *EQ* TRUt 

000331 





* 


•THEN* 

000332 

0107 

6001 



# 


•GO TO* STOP PUNCHING? 

000333 




CMV 

6*1 

000334 

0108 

0905 




BE 

>L27 

000333 





* 

•END*; 

000336 





# 

STOP PUNCHING; 

000337 

0109 

6AC0 

0000 

P 


INC 

CARDSR 

000338 

000339 

oioe 

0F81 
0100 

FF72 


L27 

B 

EQU 

L26 

$ 

000340 

0100 

0005 




PC 

5 

000341 




# 

CLOCK off; 

000342 

OIOE 




* 


REAP UR PUNCH 1= FALSE? 

000343 

8740 

0000 

P 


CL 

KEADGR 

000344 

01E0 

FBCO 

FE22 


# 


GENERATE CHECKSUMS(READ OR PUNCH)5 

000345 



LAB 

7 *D+3 

000346 

01E2 

E840 

0000 

P 


LPR 

6 *REAPOR 

000347 

01E4 

EF07 




STR 

6 * SB7 

000348 

01E5 

03C0 

0000 

P 


LNU 

5 * JGC 

000349 

01E7 

FBCO 

FE1B 



LAB 

7*0+3 

000350 

01E9 

9BC0 

FE56 



LAp 

1.T41 

000351 

01EB 

9F87 

03C0 




STp 

1 * SB7 

000352 

000353 

01 EC 

0000 

P 


LNJ 

5 *VKPNT 





# 

PUT NEW TEXT ("READ/PUNCHED $")? 

000354 

01EE 

FBCO 



* 


CALCULATE EEAPSEP TIME (CARP COUNT)? 

000355 

FE14 



LAB 

7 * D+ 3 

88811? 

GlFO 

01F2 

E840 

EF07 

0000 

P 



6«CARDSR 

6 * $67 

000356 

01F3 

03C0 

0000 

P 


LNJ 

5 * JET 

000359 





# 

• IF* error FLAG *NE* 0 

000360 





* 


♦THEN* 

000361 





* 


•BEGIN* 

000362 

Q1F5 

E840 

0000 

P 


LPR 

6*EKK0RF 

000363 

01F7 

6922 




BE 4 

6*>L42 

000364 





* 

* INTEGER 1 TEMP; 

000365 





# 

WRONG 

RESPONSE; 

000366 

000367 

01F8 

01 FA 

FBCO 

FEOB 


* 

L43 

LAB 

ASK NEW QUESTION 

f *D + 4 

000368 

9BC0 

FE4D 



LAB 

1 *T44 

000369 

01FC 

9F87 




STB 

i*$B7 

000370 

01FD 

03C0 

0000 

P 


LNj 

5 *VKANQ 

000371 

* 




* 

<"STATUS ERROR CARPS OFFSET STACKERS" 

000372 

01FF 

FBCO 



* 


GET CHAR (TEMP)? 

000373 

FE04 



LAB 

7*0+4 

000374 

0201 

9BC0 

FE01 



LAB 

1 *P+3 

000375 

0203 

9F87 



STB 

1 *$B7 

000376 

0204 

03C0 

0000 

P 


LNj 

5 * VKGC 

000377 





# 

•IF* TEMP •NE♦ •LITERAL* (Y) 

000376 





* 


•THEN* 

000379 





* 


•BEGIN* 

000380 

0206 

E840 

FpFC 



LPR 

6,P+3 

000381 

0208 

6059 




CMV 

6,89 

000382 

0209 

0910 




BE 

>L42 

000383 





* 


•IF* TEMP •NE * *L1TERAL* (N) 

000384 





* 


•THEN* 

000385 





* 


•GO TU' WRONG RESPONSE? 

000386 

020A 

604E 




CMV 

6*78 

000387 

0200 

09E0 




BNE 

>L43 

000388 





* 


LABEL 2 ;s •LITERAL* (OS)? 

000389 

020C 

C870 

4F53 



LPR 

4*=20307 

000390 

020E 

CF40 

0000 

P 


STR 

4*LABEL2 

000391 

0210 

03C0 

0000 

P 


LNJ 

5 * JRE 

000392 





# 


REPORT ERROR? 

000393 

0212 

FBCO 

FDF1 



LAB 

7 * P+4 

000394 

0214 

9BC0 

FE45 



lab 

1*T47 

000395 

0216 

9F87 




STB 

i*SB7 

000396 

0217 

D3C0 

0000 

P 


LNJ 

5 *VKPT 

000397 





* 


PUT TEXT ("* ERROR EJECTS”)? 

000398 





# 


•END*? 

000399 





# 


•END*; 

0Q0400 

000401 


0219 



L42 

EQU 

$ 





* 

CARPS SPECIFIED ;= CARD COUNT? 

000402 

000403 

0219 

E840 

0000 

P 

* 

Vt L^R Y * 6,CARDS* 

000404 

0216 

EF40 

0000 

P 


STR 

6 *CARPSS 

000406 

0210 



L48 

EQU 

S 

000406 





* 

ROR V MUPE *LITERAE* (V)? 

000407 

0210 

6C56 




3TK 

6,66 

000406 

02 IE 

EP40 

0000 

P 


6*RORVMJ 

000409 





* 


ASK NEW QUESTION ('• VERIFY$« ) 5 

000410 

0220 

FBCO 

F0E2 



LAB 

7 * P + 3 

000411 

0222 

9BC0 

FE3F - 



LAB 

1 * T49 

000412 

0224 

9F87 




STB 

1 * SB7 

000413 

0225 

03C0 

0000 

P 


LNJ 

5 * VKANQ 

000414 





* 

GET CHAR (K)? 

000415 

0227 

FBCO 

FDDB 



LAB 

7 *P+3 

000416 

0229 

9BC0 

FDD7 



LAp 

1 *D+1 

000417 

0220 

9F87 




STB 

1 * SB7 

000416 

022C 

O3C0 

0000 

P 


LNJ 

5 * VKGC 

000419 





# 

•IF* K *NE* •LITERAL*(N) 

000420 





* 


♦THEN* 

000421 





# 


•BEGIN* 

000422 

022E 

EB40 

FDD2 



LPR 

6,P+1 

000423 

000424 

000425 

0230 

0231 

604E 

0905 



* 

CMV 

BE 

6*78 

*^» K * NE • •LITERAL* (Y) 

000426 





* 


•THEN* 

000427 





# 


* GQ TO* VERIFY? 

000426 

0232 

6059 




CMy 

6,89 

000429 

0233 

Q9EA 




BNE 

>L48 

000430 





# 

LETTER ftp; 



,4f \ 




TITLE 


CRMS3 * * REV G**CARDRtADEK / PUNCH TV (SAT) 


PAGE 89 


000431 

0*34 

D3C0 

0000 

P 


LNJ 

.5*KJLR 

00043* 





# 

• END* 

; 

000433 





* 

END LETTER 

k: 

000434 





* 

* END*; ( 

Of PROCEDURE) 

000433 





# 

•end*; ( 

UF SEGMENT) 

000436 





# 

♦FINISH* 


000437 

0*36 

83C8 

FDC9 


L50 

JMP 

*D 

00043b 


0238 



LI 

EQU 

$ 

000439 

0*38 

83C0 

0000 

P 


JMP 

ZK$EX 

000440 






XLUC 

ZK$EX 

000441 






CTRL LINK 

ZKSEX 

00044* 






XLUC 

ZVSLR 

000443 






CTRL LINK 

ZVSLR 

000444 






XLUC 

ZHRTCI 

000443 






XLUC 

ZHRTCC 

000446 






XLUC 

VKPT 

000447 






XLUC 

VKPNT 

00044b 






XLUC 

VKANQ 

000449 






XLOC 

VKGC 

000450 






XLUC 

VKGD 

000451 






XLUC 

VKGB 

00045* 






XLUC 

ID 

000453 






XLOC 

STATUS 

000454 






XLOC 

SETTOH 

000453 






XLUC 

BINARY 

000456 






XLUC 

LABEL 1 

000457 






XLUC 

LABEL* 

000458 






XLUC 

CARDSS 

000459 






XLUC 

CARDSR 

000460 






XLUC 

LOWADD 

000461 






XLUC 

RORVMO 

00046* 






XLUC 

EKRORf 

000463 






XLUC 

READUR 

000464 






XLUC 

BUFFI 

000465 






XLOC 

BUFF2 

000466 






XLUC 

IQWQRD 

000467 






XLUC 

JGC 

000468 






XLOC 

JRE 

000469 






XLOC 

JIO 

000470 






XLOC 

OIL 

000471 






XLUC 

JWR 

00047* 






XLUC 

USE 

000473 






XLOC 

JCS 

000474 






XLOC 

JET 

000475 






XLUC 

KJLR 

000476 

0*3A 

0067 




END 

zvkjlk*zvkjlk 


OOGO ERR COUNT 
fcfcL 




TITLE 

CKMS3 * * REV 

G**CARDREADER 

/ PUNCH 

TV (SAF) PAGE 90 



E ZVKJLL 

• LIST 




05/19/78 

142 7 # 3R W 

05/19/78 1422,7 5352030QU0 



OOOOOi 






TITLE 

ZVKJLL** REV 00• 



000002 


0140 




XOtP 

KJLL 



000003 


0065 




XDEF 

ZVKJLL 

jT 


000004 


0006 



ZKCQM 

COMM 

8 

m 

TP, 

000005 

0000 

0000 



0 

RESV 

16«0 


j 

000006 

0010 

0017 



T9 

DC 

23 



000007 

poll 

2C20 

5752 

4F4E 


TEXT 

*9 WRONG •*1NVALI0*• • 




0014 

4720 

2749 

4E56 








414C 

4944 

2720 






000006 

001A 

434F 

4E2E 

2400 


TEXT 

•CON*$* 



000009 

0010 

0015 



T22 

DC 

21 



OOOOiO 

00 It 

2C20 

5752 

4F4E 


TEXT 

•9 WRONG *•VALID** CO* 




0021 

4720 

2756 

414C 








4944 

2720 

434F 






OQOO11 

0027 

4445 

2400 



TEXT 

• DES * 



000012 

0029 

OOOA 



T 24 

DC 

10 , 



000013 

002 A 

5445 

5354 

2040 


TEXT 

•TEST MOOES• 




0020 

4F44 

4524 







000014 

002F 

0010 



T 30 

OC 

16 



000015 

0030 

2C20 

434F 

554E 


TEXT 

*9 COUNTER WRONGS* 




0033 

5445 

5220 

5752 








4F4E 

4724 







000016 

0036 

0010 



T39 

DC 

16 



000017 

0039 

2C20 

4441 

5441 


TEXT 

*, DATA LOOPBACKS* 




003C 

204C 

4F4F 

5042 








4143 

4624 







000018 

0041 

001P 



T53 

OC 

31 



000019 

0042 

2C20 

4A41 

4020 


TEXT 

*9 JAM ONE SHOT DID* 




0045 

4F4E 

4520 

5348 








4F54 

2044 

4944 






000020 

004b 

4E27 

5420 

5449 


TEXT 

•N••T TIME-OUTS* 




004E 

4045 

204F 

5554 








2400 








000021 

0052 

ooic 



T56 

OC 

28 



000022 

0053 

2C20 

4A41 

4020 


TEXT 

*9 JAM JNE SHOT TIM* 




0056 

4F4E 

4520 

5348 








4F54 

2054 

4940 






000023 

005C 

4544 

204F 

5554 


TEXT 

•EO OUT INS* 




005F 

2049 

4E24 







000024 

0061 

0006 



T 57 

OC 

6 



000025 

0062 

204Q 

5345 

4324 


TEXT 

* MSECS* 



000026 


0065 



ZVKJLL 

EQU . 

S 



000027 

0065 

6 FOG 

0001 


K 

SAVE 

<ZKCOM+l9Z*0011* 




0067 

0011 








000028 





# 

•procedure 

• CONVERT BINARY TO ASCII (•VAlUE**INTEGER * 1 5 



000029 

0068 

0F81 

0374 



6 

LI 



000030 





* 


•VALUE* •INTEGER* ASCII WORD!? 



000031 





# 

•BEGIN* 




000032 





# 

•INTEGER* X* PART WORD*K ? 



000033 

006A 

DFCO 

FF95 


P2 

STB 

5 9 O 



000034 

006C 

6C87 




LD1 

$67 



000035 

006D 

8040 

FF93 



SOI 

D+l 



000036 





* 

• IF* 

•BITS* @7 9 2£? I • NE* 0 



000037 





* 

•THEN* 



000038 





* 

•BEGIN* 

/f 


000039 

006F 

8206 




LB 

s$R6 *Z * 01FC• 




0070 

01FC 








000040 

0071 

0581 

GQ7C 



BBF 

L3 

K., 

y 

ooqo4i 





* 


x;= 0 ? 



000042 

0073 

8740 

FF8F 



CL 

0+3 



000043 





# 


PARTWOkO ;= *B1T5* 07*2e 15 



000044 

0075 

6007 




SOL 

6*7 



000045 

0076 

6049 




SOR 

699 



000046 

0077 

EF40 

FF8C 



STR 

690+4 



000047 


0079 



L4 

EQU 

s 



000046 





* 


•FOR* KJ=0 * STtP• 1 * UN 1IL * 6 



000049 

0079 

8740 

FF8b 



CL 

0+5 



000050 





* 


* 00 * 



000051 





* 


•BEGIN* 



000052 

007b 

E840 

FF89 


L5 

LOR 

6*0 + 5 



000053 

0070 

6EFA 




AOV 

6 *-6 



000054 

007E 

6A12 




BGZ 

6 *>L6 



000055 





* 


x;= *bits* ei*oe PARTWURO + x? 



000056 

007F 

E840 

FF84 



LOR 

6 9 0+4 



000057 

0081 

E570 

0001 



AND 

6 9 sZ * OOO1 * 



000058 

0083 

EA40 

PF7F 



ADO 

6*0+3 



000059 

0085 

EF40 

FF7D 



STR 

6*0+3 



000060 





# 


PARTWORO := 'BUS* ©7*i@ PARTWORD? 



000061 

0087 

C640 

FF7C 



LOR 

4*0+4 



000062 

0089 

C2D4 




LLH 

4*5$R4 



000063" 

008A 

4041 




SOR 

4*1 



000064 

006b 

CF40 

FF78 



STR 

4*0+4 



000065 





* 


* END* 5 



000066 

0080 

8 ACO 

FF77 



INC 

0+5 



000067 

008F 

OFEC 




B 

>L5 



000066 





* 


•IF* X •NE• 1 



000069 


0090 



L6 

EQU 

S 



000070 





* 


•THEN* 



000071 





* 


•BEGIN* 



000072 

0090 

E840 

FF72 



LOR 

6*0*3 



000073 

0092 

6001 




CMV 

6*1 



000074 

0093 

0901 

0020 



BE 

L7 



000075 





* 


•IF* *BITS* e8*u@ ASCII WORD *NE* *HtX• (FF) 



000076 





Ik 


•THEN* 



000077 





Ik 


* BEGIN* 



000078 

0095 

C840 

FF6C 



LOR 

4,0+2 



000079 

0097 

C204 




LLH 

4 9 s$R4 



000080 

0098 

C970 

OOFF 



CMR 

4 * k255 



000081 

0G9A 

0901 

0060 



BE 

L20 



000082 





Ik 


LABEL2 ?s *LITERAL* (IQ? 



000083 

0Q9C 

0870 

4943 



LOR 

5*518755 



000084 

009E 

OF 40 

0000 


P 

STR 

5 *LABEL2 



000085 





# 


K *HEX* (FF)? 



000086 

OOAO 

F870 

OOFF 



LOR 

7**255 



000087 

00A2 

FF40 

FF 62 



STR 

7*0+5 



000088 

00A4 

0840 

FF50 



LOR 

$R5,0+2 



000089 

00 A 6 

C840 

FF5E 



LDR 

SR4*D*5 

£ 

' ■>, 

000090 





# 


LOAD R4 R5 (K, ASCII WORD )? 

(f 


000091 

00A8 

03C0 

0000 


P 

LNJ 

5 9 JRE 

I 

. j 

000092 





# 


REPORT ERROR? 

■ V, 

Jr 

000093 





# 


PUT TEXT ( n t WRONG * INVALID* CON*S»*)l 



000094 

OOAA 

FBCO 

FF56 



LAB 

7,0+6 






TITLE 

CRMS3 

♦ •REV G» 

♦caroreader 

/ PUNCH TV (5AF) PACE 91 


000095 

OOAC 

9BC0 

FF 63 



LAB 


i,T9 


000096 

OOAE 

9F87 




5Tb 


1,$B7 


000097 

00 AF 

03 CO 

0000 

P 


LNJ 


5, VKPT 


00009b 

00 B1 

FBCO 

FF54 



LAB 


7 , D+6 


000099 

00B3 

E840 

FF4E 



LDR 


6 ,0*2 


000100 

0065 

EF07 




STR 


6 ,$B7 


000101 

0066 

03C0 

0000 

P 


LNJ 


5 , VKPH 


0 Q0102 





* 



PUT HEX (ASCII WORD)5 


000103 





* 



PUT HEX (1); 


000104 

oobb 

FBCO 

FF4t) 



LAB 


7,0*6 


000101 ? 

006A 

E840 

FF46 



LOR 


6 ,0*1 


000106 

006C 

EF07 




5TR 


6 , $B7 


000107 

OOBD 

D3C0 

0000 

P 


LNj 


5, VKPH 


00010 b 





* 



•GO TO 1 ASK NEXT; 


000109 

OOBF 

83C0 

0000 

P 


JMP 


ASKNEX 


000110 





* 



•END*; 


000111 





* 



•GO TO* ENO CBAi 


00011 * 





* 



•END*; 


000113 


OOCI 



L7 

EQU 


S 


000114 





# 



PARTWQRD ; = ‘BITS* @8 + 10 I*, 


000115 

OOCi 

E840 

FF3F 



LOR 


6 ,0+1 


000116 

00C3 

6007 




50L 


6,7 


000117 

0QC4 

6048 




SOR 


6,8 


00011 b 

00C5 

EF40 

FF3E 



STR 


6 , D+4 


000119 

00C7 

8740 

FF30 


L12 

CL 


0*5 


000120 

00C9 

03 CO 

OOOA 



LNJ 


5 , P13 


000121 

OOCB 

8AC0 

FF39 


L14 

INC 


0 + 5 


000122 





* 



•FOR* K;=0, K*i •WHILt* PARTwORD *NE* 1 


000123 





* 



•00* 


000124 

OOCD 

E840 

FF36 



LOR 


6,0 + 4 


000125 

OOCF 

6001 




CMV 


6,1 


000126 

OODO 

0900 




BE 


>L15 


000127 

00 D1 

03C0 

0002 



LNJ 


5 ,P13 


000126 

0003 

OFF 8 




B 


>L 14 


000129 

00D4 

OFCO 

FF31 


P13 

STB 


5,0 + 6 


000130 





# 



PARTWQRO J = PARTWORO/2? 


000131 

0006 

E840 

FF20 



LOR 


6,0*4 


000132 

000 b 

6061 




SAR 


6,1 


000133 

0009 

EF40 

FF2A 



STR 


6,0 + 4 


000134 

0000 

83C8 

FF2A 



JMP 


*0 + 6 


000135 

0000 

E840 

FF27 


L15 

LOR 


6,0+5 


000136 

OOOF 

6002 




SQL 


6,2 


000137 

OOEO 

C2C0 

FF20 



LLH 


4,0+1 


00013b 

OOE2 

C570 

OOOE 



ANO 


4,s2*00QE» 


000139 

00E4 

4004 




SOL 


4,4 


000140 

00E5 

CA56 




AOO 


4 « = $R6 


000141 

00E6 

0840 

FF 1A 



LOR 


5,0+1 


000142 

OOEb 

0570 

0003 



ANO 


5,=2*0003* 


000143 

OOEA 

CA55 




AOO 


4,=$R5 


000144 

OOEb 

CF40 

FF17 



STR 


4,0+3 


000145 





* 



X := (•SITS* 63,96 I)*32 +K*4 + »6HS» £2 

,06 

000146 





* 

• 

ENO * 



000147 





* 

• 

ELSE* 



00014b 

OOEO 

0F80 




B 


>L 16 


000149 


OOEE 



L3 

EQU 


$ 


000150 





* 



X ;= * B1TS * 63,961*32 ♦ »BITS» 62,06 I, 


000151 

OOEL 

E2C0 

FF 12 



LLH 


6 ,0+1 


000152 

OOFO 

E570 

OOOE 



ANO 


6 ,=2 * OOOE• 


000153 

00 F2 

6004 




SQL 


6,4 


000154 

00F3 

C840 

FFO U 



LOR 


4,0+ 1 


0001.55 

00F5 

C570 

0003 



ANO 


4,=2*0003* 


000156 

OOF 7 

EA54 




AOO 


6 ,=$R4 


000157 

OOFb 

EF40 

FFOA 



STR 


6,0+3 


00015b 


OOFA 



L16 

EQU 


$ 


000159 





* 


•IF* 

•BITS* 61,06X»EQ* 0 


000160 





* 


•THEN* 


000161 





* 


• BEGl 

N • • 


000162 

OOFA 

E840 

FF08 



LOR 


6,0+3 


000163 

OOFC 

6B60 




BQOO 

6 , > L 1 7 


000164 

OOFO 

6061 




SAK 


6,1 


000165 





* 



•IF* 'BITS* @8,86 WORD CONVEKSION @X/26 

• NE * 

000166 





* 



•BITS* 68,06 s ASCII WURu 


000167 





* 



•THEN* 


00016b 





* 



•GO TO* VALID BUT IN ERROR? 


000169 





* 


• ENO* 



000170 

OOFE 

C840 

FF03 



LOR 


4,0 + 2 


000171 

0100 

C204 




. LLH 


4,=$R4 


000172 

0101 

9856 




LOR 


1 , = $R6 


000173 

0102 

0810 

0000 

X 


LOR 


5,<WUR0CU.$R1 


000174 

0104 

5048 




SOR 


5,8 


000175 

0105 

C955 




CMR 


4, = $R5 


000176 

0106 

0990 




BNfc 


>L 19 


000177 





* 


•ELSE 

• 


00017b 





* 


•BEGIN* 


000179 

0107 

0F81 

0043 



B 


L20 


000180 

0109 

E84Q 

FEF 9 

• 

LI 7 

LOR 


6,0 + 3 


000181 

0100 

6061 




SAR 


6,1 


000182 





* 



•IF* * B1TS * 68,06 WORD CONVERSION §X/26 

* NE • 

000183 





* 



•BITS* 68,06 ASCII WORD 


000184 





* 



•THEN* 


000185 





# 



•BEGIN* 


000186 





* 

VAL10 

BUT IN ERROR; 


000187 

oioc 

C840 

FEF5 



LOR 


4 , D+ 2 


000188 

010E 

C204 




LLH 


4,=SR4 


000189 

010F 

9856 




LOR 


1 ,=$K6 


000190 

0110 

0810 

0000 

X 


LOR 


5,<WQRDCQ.$ki 


000191 

0112 

0205 




LLH 


5, = $K5 


000192 

0113 

C955 




CMR 


4,=SR5 


000193 

0114 

0901 

0036 



BE 


L20 


000194 


0116 



L19 

EQU 


$ 


000195 





* 



LABEL2 ;= * LITERAL • (WC> ? 


000196 

0116 

E870 

5743 



LOR 


6 , = 22339 


000197 

011 b 

EF40 

0000 

p 


STR 


6 ,LABEL2 


000198 

011A 

C840 

FEES 



LOR 


4,0 + 3 


000199 

one 

4061 




SAR 


4,1 


000200 

0110 

9854 




LOR 


1,=$R4 


000201 

out 

0810 

0000 

X 


LOR 


5,<W0RDC0.$K1 


000202 

0120 

0F40 

FEE4 



STR 


5,0 + 5 


000203 





* 



K ;= WOROCONVEKSION 6 X/ 26 ? 


000204 

0122 

0840 

FEDF 



LOR 


SK5,0 + 2 


000205 

0124 

C840 

FEEO 



LOR 


$H4,0 + 5 


000206 





* 



LOAD R4 R5 (K, ASCII WuRO)? 


000207 

0126 

03C0 

0000 

p 


LNJ 


5 , JRE 





TITLE, 

CRMS3, 

•REV G* 

,CARDREADEK / PUNCH TV (SAF) PAGE 92 


00020b 





* 


report error; 


000209 





* 


PJT TEXT (", WRUNG ‘VALID* CODES”); 


000210 

01*b 

FBCO 

F6DD 



LAd 

7,D + 6 


0002X1 

012A 

9BC0 

F6F2 



LAB 

1 * T 2 2 


OOO 4 I 2 

012C 

9F87 




ST D 

1 ,$B7 

m f 

000213 

01*0 

03C0 

0000 

P 


LNJ 

5, VKPT 

\I > 

000214 

OUf 

b840 

F 603 



LDR 

6 »D+3 


000213 

0131 

6061 




SAR 

6,1 


000216 





# 


PUT HEX (WORD CONVERSION £X/2@)5 


000217 

0132 

FBCO 

F6L)3 



LAb 

7,D+6 


000216 

0134 

9840 

F6D1 



LDR 



000219 

0136 

C810 

0000 

X 


LDR 

4,<W0RDCQ#SR1 


000220 

0138 

CFO 7 




SIR 

4 , 3>B7 


00022 1 

0139 

03C0 

0000 

P 


LNj 

3 , VKPH 


000222 

013b 

F6C0 

F6CA 



LAB 

7 ,D + 6 


000223 

0130 

6840 

F6C4 



LDR 

6 , D + 2 


000*24 

OUF 

bF07 




STR 

6 , $B 7 


000*23 

0140 

03C0 

0000 

P 


LNJ 

5 * VKPH 


000226 





* 


PUT HEX (ASCII WUKD); 


000227 





# 


PUT HEX u) ; 


00022b 

014* 

FBCO 

F6C3 



LAb 

7,D + 6 


000*29 

0144 

b840 

F6BC 



LDk 

6,D+i 


000*30 

0146 

bF07 




STR 

6,$B7 


000231 

0147 

03 CO 

0000 

P 


LNJ 

5 *VKPH 


00023* 





* 


•GO TO* ASK NLXi; 


000233 

0149 

83C0 

0000 

P 


JhP 

ASKNLX 


00023^ 





# 


•END*; 


000*33 





* 

• 6Nt> * 



000*36 





* 

6ND CbA; 



000*37 





# 

• 6ND •; 



00023b 





**; 




000239 





#* 

L6TT6R L - TLbT 

MODE * DATA LOOPBACK; 


000240 





#* ; 




000*41 





* 

* PR0L6DUR6• 

letter lp; 


000*4* 

014b 

83C8 

F664 


620 

JHP 

*D 


000243 





* 

• BEGIN* 



000244 





* 

•INTEGER* ItASCIi WORD; 


000243 

0140 

OFCO 

F6BA 


KJLL 

STB 

3 ,D + b 


000*46 





* 

PUT NEW TLXl ("TEST MODES") 5 


000*47 

014*- 

FBCO 

F6BB 



LAb 

7 *0+11 


000*4b 

0151 

9BC0 

FED 7 



LAB 

1 , T 24 


000*49 

0153 

9F6 7 




ST b 

l ,$B 7 


000*50 

0154 

03C0 

0000 

P 


LNJ 

5 , VKPNT 


000251 





* 

CHECK 

STATE (SHOULD BE OFF); 


000*52 

0156 

FBCO 

F6B4 



LAb 

7,0+11 


000*53 

0158 

8 707 




CL 

$B7 


000*54 

0159 

03C0 

0000 

P 


LNj 

5 * JCS 


000253 





# 

•IF* ID *60* «HEX• (2008) 


000256 





# 

* THEN* 



000*57 





# 

♦BEGIN 

« 


000*56 





**; 




000259 





#* 

CARD READER ONLY? 


000*60 





*# ; 




000*61 

0156 

b840 

0000 

P 


LDR 

6,ID 


000*6* 

0150 

6970 

2008 



CMR 

6 ,=8200 


000*63 

015F 

0981 

OOBB 



BNE 

L25 


000264 





# 


labeli ; = *liiekal» (Ld; 


000*65 

0161 

C870 

4C31 



LDR 

4,=19305 

\ . ; 

000*66 

0163 

CF40 

0000 

P 


STR 

4,LABEL! 

X. s' 

000*67 

0165 

FBCO 

F6A5 



LAb 

7 ,0+11 


000*6b 

0167 

9BC0 

0000 

P 


LAB 

1,BINARY 


000269 

0169 

9F87 




STu 

1 ,$B7 


000*70 





* 


1N0UT (INITIALIZE, QUTPUI CON\ROL @0@)? 


000271 

016A 

ABCO 

0000 

P 


LAb 

2 * IOwQRJ e ® 


000*7* 

016C 

AFCQ 

F 69 F 



STB 

2,D +12 


000273 

016 b 

03C0 

0000 

P 


LNj 

5 , J 10 


000*74 

0170 

FBCO 

F69A 



LAb 

7tO+ll 


000*75 

0172 

9BC0 

0000 

P 


LAb 

1,B1NARY 


000276 

0174 

9 F b 7 




STb 

l,Sb7 


000*77 





* 


INOUT (BINARY MQDfc, OU1 PUT CONF1GURATI ON QQ&) ; (SET BINARY) 


000*7b 

0173 

OF 00 

OOOB 

X 

N 1 

NOP 

< 1OWORD+11 


000*79 

01 7 7 

6840 

FFF 6 



LDR 

6,N1 + 1 


000*60 

0179 

bF40 

F 692 



STR 

6 » D+ 1 * 


000*81 

017b 

03C0 

0000 

P 


LNJ 

3 4 J 10 


000282 





* 


BINC0UNT&2®; = «HEX*(9E40) ♦ (MICRO RESET DATA REGISTER) 


000283 

0170 

6870 

9640 



LDR 

6,=-*5024 


000*84 

OUF 

6F40 

000 * 

P 


STR 

6 * BINCOJ+2 


000283 

0181 

FBCO 

FE89 



lab 

7,0+11 


000*86 

0183 

9BC0 

0000 

P 


LAb 

1,10X1 


000287 

0185 

9F87 




STB 

l * $B7 


000*88 

0186 

OFOO 

0006 

X 

N2 

NOP 

< IOWOKD+14 


000*89 

0188 

C840 

FFFE 



LDR 

4,N*+i 


000*90 

OlbA 

CF40 

F 68 1 



SIR 

4,D+12 


000*91 

018C 

03C0 

0000 

p 


LNJ 

5 * J 10 


000292 





* 


INOUT (WAIT LOOP ADDRESS* GET WAIT ADDRESS <g0@) i 


000*93 


0186 



L 26 

LQU 

$ 


000294 





* 


•FUR* I ; s 1 •STEP* 1 •UNIIL* •HEX* (OFFF) 


000*95 

018b 

6C01 




LDV 

6,1 


000*96 

0 18F 

6F40 

F 679 



STR 

6,D+9 


000*97 





* 


•DO* 


000*98 





* 


•BEGIN* 


000299 

0191 

6840 

F 677 


L27 

LDK 

6,D+9 


000300 

0193 

6270 

OFFF 



SUb 

6,=4095 


000301 

0193 

6A01 

0036 



BG* 

6 * L28 


00030* 





* 


•INTEGER* DAPCOUNT; 


000303 

0197 

FBCO 

F674 



LAb 

7,0+12 


000304 

0199 

9BC0 

0000 

p ' 


LAb 

1 ,BINCOJ 


000303 

019b 

9F87 




STb 

l»$B7 


000306 

019C 

6C0D 




LDy 

6,13 


000307 

0190 

6F4Q 

F 66 F 



STR 

6 , D+ 1 3 


00030b 

019F 

O3C0 

0000 

p 


LNJ 

5 , JMC 


000309 





* 


MICRO (BiNCOUNT)i 


000310 

01A1 

FBCO 

F 66 A 



LAb 

7 , D+ 12 


000311 

0 1 A3 

9BC0 

F 66 7 



LAb 

1 * 0+11 


00031* 

0 1A5 

9FS7 




STb 

1 ,SB7 


000313 





* 


INJUT (DAPCOUNT, GET WAIT ADqresS fcoe) 5 


000314 

01A6 

OFOO 

0006 

X 

N3 

NOP 

< IQWORD+14 


000313 

01A8 

6840 

FFF 6 



LDK 

6 , N3+1 

g “X 

000316 

01AA 

6F40 

F 66 * 



STR 

6,D+13 

i 

000317 

01 AC 

D3C0 

0000 

p 


LNJ 

3 , J1 0 

m J 

000318 





* 


bINCOUNT ;= 0 ; ( DUN » T RESET DA 1 A REG) 


000319 

0 1 Ab 

8740 

0002 

p 


CL 

BINCUU+* 


000320 





* 


•IF* DAPCOUNT * Nt ♦ I 






7 I7LE 

CRMS3, 

P* 

c 

C 

,CAKPK6AP6K 

/ PUNCH 

TV (SAP) PAUL 93 

000321 





# 



• 1KLN * 

OOO322 





# 



•BEGIN* 

000323 

OibO 

6840 

F65A 



LPK 


6 , D+ 1 1 

000 32^ 

0IB2 

6940 

F 656 



OMK 


6 , D+ 9 

000323 

01b4 

0901 

0013 



B6 


L29 

000326 





* 



LABEL 2{ = *L1TLRAl* (Cw)? 

000327 

0 1 b6 

C870 

4357 



LPK 


4,-17239 

000326 

01b6 

CF 40 

0000 

P 


ST K 


4,LAbLL2 

000329 

0 IbA 

0840 

F 646 



LPK 


$K5,D + 9 

000330 

OlbC 

0840 

F646 



6PK 


$K4,D+11 

000331 





* 



LUAP R4 K5 (PAPCUuNT * I ) ; 

000332 

Oibt 

03C0 

0000 

P 


LNj 


3 , JKL 

000333 





* 



KLPUKT LKRURi 

000339 

01C0 

FbCO 

F 64B 



LAb 


7 ,D+ 12 

000333 

OlCc 

9BC0 

F66C 



LAb 


1 ,T30 

000336 

01C4 

9 F 8 7 




bib 


1 ,SB7 

00033 1 

01C3 

03C0 

0000 

r 


LNj 


5,VKPT 

000336 





* 



PUT TEXT <", COUNTER WRONGS")? 

000339 





ik 



•GU TO* LNP blNCOuNT; 

Q00o40 

0107 

OF 6 5 




b 


>L28 

000341 





* 



•lmp*; 

000342 





A 



• lnp* ; 

000343 





* 

LiND blNCOuNT; 

000344 

0106 

6AC0 

F640 


L29 

INC 


P + 9 

000343 

01CA 

OF 8 1 

PFC6 



b 


L27 

000346 


01CC 



626 

LOU 


$ 

000347 





* 



LABEL 1 ,= 'LITERAL* (L2); 

000346 

0100 

6670 

4C32 



LPK 


6,=19506 

000349 

OICL 

LF4Q 

0000 

P 


STK 


6,LABEL 1 

000330 

0 1 DO 

FBCO 

FE3A 



LAb 


7,D+11 

000351 

01D2 

9BCG 

0000 

P 


LAb 


1,BINARY 

0O0352 

0104 

9F87 




ST d 


1, $ b 7 

000353 





# 



INPUT (INITIALISE, OUTPUI CQNfRUL @0@) ? 

000354 

0103 

AbCO 

0000 

P 


LAb 


2,I0W0KJ 

000353 

0107 

AFCO 

F634 



STb 


2,P+12 

000356 

0109 

03C0 

0000 

P 


LNj 


3 , J10 

000357 

010b 

FbCO 

F62P 



LAb 


7,P+11 

000336 

010 0 

9bC0 

0000 

P 


LAb 


1,SLTTOA 

000359 

01 OF 

9 F 6 7 




ST d 


l,SB7 

000360 





* 



1NUUT (SET TU ASCII* OUTPUT CuNFIGgRATIUN fcOG) ; 

000361 

01 to 

OFOO 

000b 

A 

N4 

NOP 


<1UW0RD+11 

000362 

0102 

6840 

FFF6 



LPK 


6,N4+ 1 

000363 

0104 

6F40 

F 627 



STk 


6,P+12 

000364 

0106 

03C0 

0000 

P 


LNj 


5,J10 t 4 

000363 





* 



ASCCINT 1= * HEX • (9C40); (nICRU RESET ASCII PATA RLGiSTLK) 

000366 

0106 

6870 

9C40 



LPK 


6,=-25536 

000367 

010a 

6F4G 

0002 

P 


STK 


6,ASCCN T +2 

000366 

0100 

6740 

FE1C 


L32 

CL 


P + 9 

000369 





* 



«FQK* i:= 0 •STEP* 1 * UN 1IL• (4093) 

000370 





* 



*PU» 

000371 





* 



'BEGIN* 

000372 

OlOt 

6640 

F61A 


L33 

LPK 


6,P + 9 

000.3 7 3 

01F0 

6270 

OFFF 



SUb 


6,=4095 

000374 

01 F 2 

6 AO 1 

0168 



BUS 


6 ,L34 

000375 





* 



MICRO (ASCCNT)5 

000376 

0 1 F 4 

FbCO 

F 616 



LAo 


7,P+11 

000377 

0 1 F t> 

9bC0 

0000 

P 


LAd 


1,ASCCNT 

000376 

0 1 F 6 

9 F 87 




STb 


1 ,$B7 

000379 

01 F 9 

6C0A 




LPy 


6,10 

000360 

01 FA 

6F4Q 

F611 



STK 


6,P+12 

000381 

01FC 

03C0 

0000 

P 


LNj 


5 , JMC 

000382 

01 Ft 

FBCO 

F60C 



LAb 


7,P+11 

000383 

0200 

9BC0 

F609 



LAb 


i,P+10 

000384 

0202 

9F87 




STb 


usb/ 

000385 





* 



INJUT (ASCII *ORP, GET *AI7 ADDRESS £0@) ; 

000386 

0203 

OFOO 

0006 

A 

N5 

NOP 


<10W0KP+14 

000367 

0205 

6840 

FFF6 



LPK 


6,N5 + 1 

000388 

0207 

6F40 

6604 



s r k 


6♦ D +12 

000389 

0209 

03C0 

0000 

P 


LNj 


5,JIU 

000390 





* 



ASCCNT &2e ;= 05 (DON'T RESET PATA REG) 

000391 

OcOb 

6740 

0002 

P 


CL 


ASCCNT + 2 

000392 

020O 

FbCO 

PDFD 



LAb 


7,P+11 

000393 

020F 

6840 

FDP 9 



LPK 


6,P + 9 

000394 

0211 

6PQ7 




STK 


6 , $ b 7 

000395 

0212 

C840 

FDF/ 



LPK 


4,P+ IQ 

000396 

0214 

CF 40 

F OF 7 



STk 


4,P+12 

000397 

0216 

03C0 

F653 



LNj 


5,P2 

000396 





* 



CONVERT BINARY TU ASCII (I, ASCII WORD)? 

000399 





* 



* lnp •; 

000400 





* 

i 

LNP * 


0Q0401 

0218 

8AC0 

FDFO 



INC 


P + 9 

000402 

OclA 

0F04 




b 


>L33 

000403 





# 

i 

LLSt • 

000404 





* 

t 

bLG1N * 

000405 





ik *: 




000406 





** READER / 

punch; 

000407 





*#; 




000406 





** TEST 

BINARY 

OUT 

and back; 

000409 


02ib 



L25 

600 


$ 

000410 





* 



LAbLL 1 ;= 'LITERAL• (L3)5 

000411 

021b 

6870 

4C33 



LPK 


6,=19507 

000412 

0210 

6F40 

0000 

P 


STK 


6♦LAbLLl 

000413 

02 1F 

FbCO 

FDEB 



LAo 


7 ,P+11 

000414 

0221 

9BC0 

0000 

P 


LAo 


1, b iNARY 

000413 

0223 

9F87 




STb 


1 * SB 7 

000416 





* 



INPUT (INITIALISE, OUTPUI CONjRUL @Q@) ? 

000417 

0224 

ABCO 

0000 

P 


LAb 


2,1QWQR0 

000416 

0226 

AFCO 

FDL5 



ST o 


2,D+12 

000419 

0228 

P3C0 

0000 

P 


LNj 


5 , J1U 

000420 

022 A 

FbCO 

FP60 



LAo 


7,P+11 

000421 

022C 

9BC0 

0000 

P 


LAb 


1,10X1 

000422 

0226 

9F 87 




STb 


1 ,SB7 

000423 

022F 

OFOO 

0006 

A 

N6 

NOP 


<1OWORD+14 

000424 

0231 

6840 

FFFt 



LPK 


6,N6+ 1 

000423 

0233 

6F40 

FPP8 



STK 


6,P+12 

000426 

0233 

D3C0 

0000 

P 


LNj 


5 , J IU 

000427 





* 



INPUT (WAIT LOOP APPRL^S*GET wAIT ADDRESS &Ofe>) ; 

000426 


0237 



L33 

LOU 


$ 

000429 





* 



'FOR* I; = 0 • STEP * 1 * UN 1 1L * *095 

000430 

0237 

8740 

FPD1 



CL 


P+9 

000431 





# 



•DO* 

000432 





* 



•BEGIN* 

000433 

0239 

6840 

FPCF 


636 

LPK 


6,P+9 



T I I LL 


CRMS3, * REV G',CAROREAOER / HUNCH TV (SAP) 


PAUL 


94 


000m34 

023b 

£.270 

OFF F 



SUb 

6,=4093 


000433 

02 3D 

6A01 

004F 



BGZ 

6 ,L3 7 


000436 





* 


'INTEGER* LOOPCOUNi; 


00U437 

023P 

FbCO 

FOCC 



LAb 

7,0+12 

00043b 

0241 

9BC0 

FDC 7 



LAB 

1,0+9 

l i ; j 

000439 

0243 

9F87 




Sib 

1 ,$B7 

\ J? 

000440 





X 


INJUT (1, OUTPUT DATA ? 


000441 

0444 

OFOO 

OOOF 

X 

N7 

NOP 

<IOWOKO+15 


000442 

0246 

fc.840 

FFF£ 



LOR 

6 ♦ N 7 + 1 


000443 

0248 

EF40 

F DC 4 



STk 

6,0+13 


000444 

024 A 

D3C0 

0000 

p 


LNj 

5 , JIG 


000443 


FbCO 



# 


MICRO (BlN0b)5 


000446 

024C 

FDBF 



LAb 

7,0+12 


000447 

044L 

9BC0 

0000 

p 


LAb 

1,B1N0B 


00044b 

0250 

9F67 




ST b 

1 ,SB7 


000449 

0251 

6C14 




LDV 

6,20 


00045U 

0232 

EF40 

FDBA 



SIR 

6,0+13 


000451 

0234 

D3C0 

0000 

p 


LNj 

5, JMC 


000454 

0256 

FBCO 

FOB 5 



LAd 

7,0+12 


000453 

02 3 8 

9BC0 

F0B2 



LAb 

1,0+11 


000454 

025A 

9F87 




ST b 

1 , $B 7 


000455 





* 


INJUT (LOQPCOUNT * GET WAIT ADDRESS &0&); 


000456 

025b 

OFOO 

000£ 

X 

N8 

NOP 

<IOWORO+14 


000457 

025U 

£840 

F F F £ 



LDK 

6,N8♦1 


00045b 

0251- 

EF 40 

FOAD 



STK 

6,0+13 


000459 

0261 

03C0 

0000 

p 


LNj 

3, J10 


000460 





* 

'IF* LOOPCOUNI »N£* I 


000461 





* 


'THEN* 


00046L 





* 


'BLUIN' . 


000463 

0263 

£840 

F0A7 



LOR 

6,0+11 


000464 

0463 

£940 

F0A3 



CMK 

6,0 + 9 


000465 

0267 

0901 

0021 



BE 

L38 


000466 







LABEL 2;= 'LITERAL' (OL)? 


000467 

0269 

C870 

444C 



LDk 

4,=17484 


000466 

026b 

CF40 

0000 

p 


ST K 

4,LABEL2 


000469 

026D 

0840 

F 09b 



LOR 

SR5,0+9 


000470 

02 6 F 

C840 

FP9B 



LOR 

SK4,0+11 


00047 1 





* 


LOAD R4 R3 (LOOPCuUNT, I); 


000474 

0271 

D3C0 

0000 

p 


LNJ 

5 , JKL 


000473 





X 


REPORT error; 


00047m- 

0273 

FBCO 

FD98 



LAb 

7,0+12 


000473 

0275 

9BC0 

F0C2 



LAb 

1,139 


000476 

02 7 7 

9F87 




STB 

1 ,SB 7 


000477 

02 78 

03C0 

0000 

p 


LNJ 

5,VKPT 


00047b 


FBCO 



X 


PUT TEXT (", DATA LOOPBACKS” > 5 


000479 

027A 

F 091 



LAb 

7,0+12 


000480 

027C 

£840 

FDbE 



LOR 

6,0+11 


000481 

027E 

£F07 




STR 

6 , $B 7 


000484 

02 7F 

D3C0 

0000 

p 


LNJ 

3,VKPH 


000483 





* 


PUT HEX (LOOPCOUNI); 


000484 





# 


PUT HEX U) ; 


000483 

0281 

FBCO 

F08A 



LAb 

7,0+12 


000486 

0283 

£840 

F085 



LOR 

6,0 + 9 


000487 

0285 

£F07 




STR 

6 , $ B 7 


000488 

0286 

03C0 

0000 

p 


LNJ 

5,VKPH 


000489 





* 


'GO TO' T£3 r rprohs; 


000490 

0288 

0F85 




B 

>L37 


000491 





# 


» £ NO' ; 

V y 

000494 





# 


•£N0'; (OF BINARY OU1 AND BACK) 


000493 





# 

TEST RPROMS 


000494 

0289 

6 ACO 

FD7F 


£38 

INC 

9 D + 9 


000493 

02bb 

0F8 1 

FFAO 



b 

L36 


000496 


0280 



L37 

LOU 

S 


000497 





* 


LABEL 1:= 'LITERAL* (L4); 


000498 

0280 

£870 

4C34 



LOR 

6,=19308 


000499 

02 8 F 

EF40 

0000 

p 


SIR 

6,LABEL 1 


000300 

0291 

FbCO 

F079 



LAb 

7,0+11 


000501 

0293 

9BC0 

0000 

p 


LAb 

1,BINARY 


000304 

0293 

9F87 




ST b 

1 , SB 7 


000303 





# 


1N0UI (INITIALIZE, OUTPUI CONlROL @oe> ? 


000304 

0296 

ABCO 

0000 

p 


LAb 

2,1OWUK J 


000303 

0298 

AFCO 

F07 3 



STb 

2,0+12 


000306 

029A 

03C0 

0000 

p 


LNJ 

5 , J 10 


000307 

029C 

FBCO 

FD6E 



LAb 

7,0+11 


000508 

029E 

9BC0 

0000 

p 


LAb 

1,ST AIWA 


000309 

02 AO 

9F87 




STb 

1 , SB7 


000310 





* 


1N0UT (STATUS WAS, INPUT STATuS WORD i (WA1I FOR ULT) 


0005 11 

02A1 

OFOO 

oooc 

X 

N9 

NOP 

<10WORO+12 


000514 

02A3 

£840 

FFFE 



LOR 

6,N9+1 


000513 

02 A3 

EF40 

FD66 



STR 

6,0+12 


000314 

02 A 7 

03C0 

0000 

p 


LNJ 

5 , J10 


000515 


Q2A9 



L41 

£00 

S 


000516 





* 


•FOR* 15= 0 'STEP* 1 * UN 1IL• 4093 


000517 

02A9 

8 740 

F05F 



CL 

D+9 


000518 





* 


•00' 


000519 





* 


'BEGIN' 


000520 

02 AB 

£840 

FD50 


L42 

LOR 

6,D + 9 


000341 

02 AD 

£270 

OF F F 



SUb 

6,=4093 


000524 

02 AF 

6A33 




b04 

6 »>L43 


000523 

02B0 

FbCO 

F05 A 



LAb 

7,0+11 


000524 

02B2 

9BC0 

F056 



LAb 

1,0 + 9 


000323 

02B4 

9F87 




STb 

1 , SB7 


000526 





* 


INJUT (I, OUTPUT DATA 5 


000327 

02B5 

OFOO 

OOOF 

X 

N10 

NOP 

<1OWORO+15 


000528 

02 67 

£840 

FFFE 



LOR 

6,N10+1 


000529 

0269 

£F40 

FD52 



STR 

6,0+12 


000330 

026b 

03C0 

0000 

p 


LNJ 

3 , J 10 


000531 





* 


MICRO (RPROMSH 


000534 

0260 

FBCO 

F040 



LAb 

7,0+11 


000533 

026F 

9BC0 

0000 

p 


LAB 

1,RPKGMS 


000534 

02C1 

9F87 




STb 

1 ,$B7 


000333 

02C2 

6C12 




LPv 

6,18 


000536 

02C3 

£F40 

F 048 



STR 

6*0+12 


000337 

02C5 

03C0 

0000 

p 


LNJ 

5, JMC 


000338 

02C7 

FBCO 

F043 



LAB 

7,0+11 


000539 

02C9 

9BC0 

F 040 



LAb 

1,0+10 


000340 

02Cb 

9F 87 




STb 

1 , SB 7 


000341 

02CC 

OFOO 

OQOE 


* 


1 N JUT (ASCII WORO, GET «A1T AD0RE33 GOg) ; 

f ' 

000344 

X 

Nil 

NOP 

<IOWORO+14 

m 

000343 

02Ct 

£840 

FFFE 



LOR 

6,N11+1 


000544 

0200 

EF40 

F 036 



STR 

6,0+12 

000545 

0202 

03C0 

0000 

p 


LNj 

5 , J10 


000546 

0204 

FBCO 

F036 



LAb 

7,0+11 




TITLE. 


CRMS3 ,' REV G',CARDREADEk / PUNCH TV (SAF) 


PAUL 


95 


000547 

0206 

t840 

F032 



LDk 

6,0*9 

000545 

0208 

EF07 




STk 

6, $B7 

000549 

02D9 

C840 

FD30 



LDk 

4,0*10 

000550 

0206 

CF40 

FD30 



STk 

4,0*12 

000551 

0200 

D3C0 

F08C 



LNJ 

5 ,P2 

000552 





* 


CONVERT biNAKY TO ASCII (I* ASCII WQRD); 

000553 





# 


•END*; (OF KEAOER PROM TEST) 

000554 





** TEST 

PUNCH PROMS; 

000555 

020F 

8 ACO 

F 029 



INC 

0*9 

000556 

02E1 

OFCA 




b 

>L42 

000557 


02E2 



L43 

EQU 

$ 

00055b 





* 


LAbEL 1 ; = 'LITERAL* (L5)? 

000559 

02L2 

E870 

4C35 



LOk 

6,=19509 

000560 

02L4 

tF40 

0000 

H 


STk 

6,LABEL 1 

000561 

02L6 

FBCO 

F024 



LAb 

7,0*11 

00056<i 

02E8 

9BC0 

0000 

P 


LAb 

1,BINARY 

000563 

02 La 

9F87 




ST 6 

i, $b 7 

000564 





* 


1N0UT (INITIALIZE, UUTPUI CONTROL @06) » 

000565 

02tb 

ABCO 

0000 

P 


LAd 

2,lOWORO 

000566 

02 L0 

AFCO 

FOIE 



STb 

2,0*12 

000567 

02EF 

03C0 

0000 

P 


LNJ 

5 , J10 

00056b 

02F1 

FBCO 

F019 



LAd 

7,0*11 

000569 

02F3 

9BC0 

0000 

P 


LAd 

1 , ST AiWA 

000570 

02F5 

9F87 




STd 

1 , $B7 

000571 





* 


1N0U) (S1AT0S WAS, INPUT STATUS WORD @0@); (WAil FOR OLD 

000572 

02 Fb 

OFOO 

OOOC 

X 

N12 

NOP 

<1UW0RD+12 

000573 

02F 8 

E840 

FFFE 



LOk 

6 , N1 2 * 1 

000574 

02 FA 

t F 40 

F011 



STK 

6,0*12 

000575 

02 FC 

D3C0 

0000 

p 


LNJ 

5 ♦ J 10 

00057o 


02FE 



L44 

LOU 

$ 

000577 





# 


'FOR' 1:=0 'STEP' 1 'UNTIL* 256 

00057b 

02F t 

8740 

FDOA 



CL 

0 + 9 

000579 





* 


•00* 

000580 





* 


» BEGIN * 

000581 

0300 

E840 

F 008 


L45 

LOk 

6,0*9 

00058^ 

0302 

E270 

0100 



SUd 

6, = 2 56 

000583 

0304 

6 AO 1 

0048 



bOL 

6, L46 

000584 





* 


♦INTEGER* COUNT; 

000585 





* 


•IF* 'BITS' 61*06 1 »EU* 0 

000586 





* 


'HEN' 

000587 

0306 

E840 

F 002 



LOk 

6,0*9 

00058b 

030b 

6B89 




BOOO 

6,>L47 

000589 





* 


ASCII WORO 'BITS' @8,8@ WOkU CONVERSION @1/26 

000590 





* 


'El.SE' 

000591 

0309 

6061 




SAK 

6,1 

000592 

030A 

9856 




LOk 

1,=SK6 

000593 

0306 

C810 

0000 

A 


LDk 

4,<WURDCQ# $k1 

000594 

0300 

4048 




SOk 

4,8 

000595 

030t 

CF 40 

FCFb 



STK 

4,0*10 

000596 

0310 

0F8A 




b 

>L48 

000597 


0311 



L4 7 

EQU 

$ 

00059b 





* 


ASCII WORO ; = 'BITS' @8,0@ WORD CONVERSION @I/2@; 

000599 

0311 

E840 

FCF7 



LOk 

6,0*9 

OOOoOO 

0313 

6061 




SAK 

6,1 

OOOoOl 

0314 

9856 




LOk 

1,=*R6 

OOObOc 

0315 

C810 

0000 

X 


LOk 

4,<WUKOCO.iRl 

000603 

0317 

C204 




LLH 

4, = 3>R4 

000604 

031b 

CF 40 

FCFi 



STk 

4,0+10 

000605 

03 1A 

FBCO 

F C F 1 


L48 

LAd 

7,0+12 

000606 

03 1C 

9BC0 

F CEO 



LAd 

1,0+10 

000607 

03 IE 

9F 8 7 




STd 

1 , $ b 7 

00060b 





* 


INJUT (AS011 WORO, OUTPuT OAjA @0@) ; 

OOO 6 O 9 

03 1F 

OFOO 

OOOF 

X 

N13 

NUP 

<1OWURO*15 

000610 

0321 

E840 

FFFE 



LOk 

6,N13* 1 

000611 

0323 

EF 40 

FCt9 



STk 

6,0+13 

0006 12 

0325 

03CO 

0000 

p 


LNJ 

5, J10 

000613 





# 


MICRO (PPROMS)? 

000614 

0327 

FBCO 

FCE4 



lad 

7*0+12 

000615 

0329 

9BC0 

0000 

p 


LAd 

1 ,PPROMS 

000616 

0326 

9F 87 




ST o 

1 ,$b7 

000617 

032C 

6C12 




LOv 

6,18 

00061b 

0320 

EF 40 

FCOF 



SI k 

6,0+13 

000619 

032F 

D3CQ 

0000 

p 


LNJ 

5 , JMC 

000620 

0331 

FBCO 

FCOA 



LAd 

7,0+12 

000621 

0333 

9BC0 

FCD7 



LAd 

1,0+11 

000624 

0335 

9F87 




STd 

1,S>B7 

000623 





* 


1NJUT (COUNT, Gtl WAIT ADDRESS @06); 

000624 

0336 

OFOO 

OOOE 

X 

N14 

NOP 

<IOWORD+14 

000625 

033b 

E840 

FFFE 



LOk 

6 , N14 + 1 

000626 

033A 

EF40 

FC02 



STk 

6,0+13 

000627 

033C 

U3C0 

0000 

p 


LNJ 

5 , J I 0 

00062b 

033E 

FBCO 

FCCO 



LAd 

7,0*12 

000629 

0340 

E840 

FCCA 



LOk 

6,0+11 

000630 

0342 

EF07 




STk 

6,$B 7 

000631 

0343 

C840 

FCC6 



LOk 

4,0+10 

000632 

0345 

CF 40 

FCC7 



STK 

4,0+13 

000633 

0347 

D3C0 

F 022 



LNJ 

5 , P2 

000634 





* 


CONVERT BINARY TO ASCII (COUNT, ASCII WORO); 

000635 





* 


•END*? (OF PUNCH PROM IEST) 

000636 





* 

• comment * 

TEST CARD JAM TlMt-OUT UNt SHOT; 

000637 

0349 

8AC0 

FCBF 



INC 

0 + 9 

00063b 

0346 

OF 8 1 

FF64 



b 

L45 

000639 


0340 



L46 

LQu 

S> 

000640 





* 


2HKTCC ; = HER 12/2; (wMI 1/2 SECOND) 

000641 

0340 

E840 

0000 

p 


LOk 

6,HER T 2 

000642 

034F 

6061 




SAK 

6,1 

000643 

0350 

tF40 

0000 

p 


STk 

6,2hRTCC 

000644 





* 


2HKTC1 ;=HERI2/2; 

000645 

0352 

C840 

0000 

p 


LOK 

4,HERTZ 

000646 

0354 

4061 




SAK 

4,1 

000647 

0355 

CF 40 

0000 

p 


STk 

4,ZHkTU 

00064b 





* 


CLOCK StMAPHORL l = 0; 

000649 

0357 

8740 

0000 

p 


CL 

CKSEM 

000650 





* 


STATUS WAS := o; 

000651 

0359 

8 740 

0000 

p 


CL 

STAiWA 

000652 





* 


LABEL 1 := 'LITERAL* (L6); 

000653 

0356 

0870 

4C36 



LOk 

5, = 1951j 

000654 

0350 

OF 40 

0000 

p 


STk 

5,LAbEL 1 

000655 

035F 

FBCO 

FCAB 



LAb 

7,0+11 

000656 

0361 

9BC0 

0000 

p 


LAd 

1,BINARY 

000657 

0363 

9 F 8 7 




STd 

1 ,SB7 

00065b 





* 


1N0UT (INITIALIZE, OUTPUT CONTROL @06)? 

000659 

0364 

ABCO 

0000 

p 


LAd 

2,1OWOKD 





i I ILL 

CRMS3* 

•KtV G 

,CARDRtADEN 

/ PUNCH 

TV (SAF) PAUL 96 

0 U 0660 

0366 

AF CO 

FCAb 



5Tb 

2 ,D +12 

000661 

0366 

O3C0 

0000 

P 


LNJ 

t>+JIO 

00066 c 

036A 

FOCO 

FCAO 



LAb 

7,D +11 w 

000663 

036C 

9BC0 

0000 

P 


LAt> 

1 * ST AT W A M 

00066 ** 

036t 

9F87 




5 Tb 

1 * SB 7 It 

00066 b 





* 


1N0U1 (STATUS WAS, INPUT STATuS WORD @0£) ? (WAIT FOR UL T) 

000666 





* 

•COMMENT• 

WAIT A MAXIMUM OF 1/2 StCONP FuR UME-OUT TO OCCUR; 

000667 

036F 

OF 00 

OOOC 

X 

Nib 

NUP 

<1OWORP+12 

000666 

0371 

E84Q 

FFF 0 



LPR 

6,N15+ 1 

00066V 

0373 

tF 40 

FC96 



5T K 

6 , 0+12 

000670 

03 7b 

03C0 

0000 

P 


LNj 

b, JIO 

000671 

03 7 7 

0004 




PC 

4 

00067c 





* 


CLOCK on; 

000673 





# 


MICRO (ONLSHOT); 

00067** 





* 

KtTNY; 


00067b 

0376 

FOCO 

FC92 



LAb 

7,P+11 

0006/6 

0 3 7 A 

9BCQ 

0000 

P 


LAb 

l,QNtSHJ 

000677 

037C 

9F87 




5Tb 

1*4B7 

00067b 

03 70 

6C09 




LDv 

6,9 

0Q0o79 

0376 

OF 40 

FC80 



STR 

6 ,P +12 

000680 

0360 

03CO 

0000 

P 


LNj 

b, JMC 

000681 


0382 



L49 

tou 

$ 

00068 c 





* 


•IF* CLOCK StHAPHORL »Nt» l 

000683 





* 


•T HtN• 

000684 





# 


* btGiN• 

00068b 

0362 

0840 

0000 

P 


LPR 

6 ,CKSLM 

OOO 086 

0364 

6001 




C MV 

6,1 

000687 

036b 

0914 




Bt 

>LbO 

000686 

0386 

FOCO 

FC84 



LAb 

7,P+11 

000689 

038b 

90C0 

0000 

P 


LAb 

i,STATWA 

000690 

038A 

9F87 




5 I b 

1 ♦ 4 b 7 

000691 





* 


1NJUT (STATUS WAS, INPUi STATUS WUKP <20©); 

00069c 

0360 

OFOO 

OOOC 

X 

N 16 

NOP 

<1UWQRP+12 

000693 

0360 

C840 

FT Ft 



LPR 

4,N16+ 1 

00069** 

0 38F 

CF 40 

FC7C 



STR 

4,P+ 12 

00069b 

0391 

03C0 

0000 

p 


LNJ 

5,JIO 

000696 





* 


•IF* •BITS* ©1*9© STATUS WAS »EQ» 1 

000697 





* 


•THtN* 

000698 





* 


•GU TO* lxit; 

000699 

0393 

82C0 

0000 

p 


Lb 

S1 ATWA,2*0200* 


039b 

0200 






000700 

0396 

ObOl 

0012 



BBT 

Lb2 

000/01 





# 


*GJ TO* retry; 

00070c 

0396 

OFEA 




b 

>L49 

000703 





* 


* LNP •; 

000704 


0399 



LbO 

tQu 

$ 

00070b 

0399 

0005 




PC 

b 

000706 





* 


CLOCK off; 

000707 





* 


LAbtL 2 * LIT ORAL » (NT)? 

000/06 

039A 

0870 

4tb4 



LPR 

6 ,sCOOb 2 

000709 

0390 

OF 40 

0000 

p 


ST R 

6 ,LABLL2 

000710 

0396 

03C0 

0000 

p 


LNj 

5 , JRt 

000/11 





# 


RLPORT lhror; 

00071c 





* 


PUT TLX T (", JAM QNL 5^0 T DIDN'T T IME-00 1 $*') 5 

000713 

03A0 

FbCO 

FC6A 



LAb 

7*D+U 

000714 

03 AC 

9BC0 

FC9t 



LAb 

1, T b 3 r ' 

00071b 

03A4 

9F87 




51 D 

1,4b/ 

000716 

G3Ab 

03C0 

0000 

p 


LNj 

5 , V K P T V 

000717 





* 


• GU TO* LNP LET TtK L5 

000716 





* 

EXIT: 


000/19 

03A7 

OF 61 

0033 



b 

L34 

000/20 


O 3 A 9 



Lb2 

LUO 

4 

000/21 

03A9 

0005 




PC 

b 

00072c 





* 


CLOCK off; 

000723 





* 

• COMMLNT• 

CHLCK TO btt IF TIML-OOI BtFORc. lbO MSEC; 

000724 





* 


•BLGIN* 

00072b 





* 


»1VTEGLR• TICKS,MStC; 

000726 





* 


TICKS ;= ZHRTCI-2.HRTCC; 

000727 

03 AA 

0840 

0000 

p 


LPR 

6,2HRTC1 

000/26 

03AC 

0240 

0000 

p 


50b 

6,Z.HKTCC 

000729 

03AL 

0F40 

FCbC 



SIR 

6,0+11 

000/30 





# 


MSEC ;= 1000*1IC^S/HLKTz; 

000731 

0360 

F 840 

FC5A 



LPR 

7,0+11 

000 /3C 

0302 

FB70 

03t8 



MUt 

7,s1000 

000/33 

030** 

F 340 

0000 

p 


PI V 

7,HLKTZ 

000734 

0306 

F F 40 

FC5b 



STR 

7,0+12 

00073b 





* 


LA3LL 2 ;= »LITLRAL* {Tw); 

000/36 

030b 

0870 

b4bl 



LPR 

6,5 21b8 5 

000737 

03BA 

OF 40 

0000 

p 


STR 

6,LAbtL2 

000736 





# 


•IF* MStC *LT* ISO 

000739 





# 


*!HLN* 

000740 





* 


* BLGIN * 

000741 

030C 

F 970 

0096 



CMR 

7, 5 1 bO 

000/42 

0300 

0861 

001C 



BAbt 

L34 

000743 

03C0 

0840 

0000 

p 


LPR 

4Kb,SET TOA 

000744 

03C2 

C840 

FC49 



LPR 

4K4,P+12 

00074b 





# 


LOAD R4 Rb (MSEC*CLEAR); 

000746 

03C4 

03C0 

0000 

p 


LNJ 

5 * JKE 

000747 





# 


RLPORT LKKOKi 

00074b 





# 


PUT TEXT (", JAM gNE SHOT TIMED OUT INV’)* 

000749 

03C6 

FBCO 

FC46 



LAb 

7,P+13 

000750 

03C8 

9BC0 

FC89 



LAb 

1, T 56 

000751 

03CA 

9F87 




ST b 

1,4b 7 

000/52 

03C0 

D3C0 

0000 

p 


LNJ 

5,VKPT 

000753 

03CD 

FBCO 

FC3F 



LAb 

7,0+13 

000754 

03CF 

0840 

FC3C 



LPR 

6 *P+12 

00075b 

0301 

OF 07 




STR 

6,4b 7 

000756 

0302 

03C0 

0000 

p 


LNJ 

5, JPN 

000757 





* 

PUT NUMbER (MSEC), 

000758 





# 


PUT TEXT (" MSEC4")* 

000759 

0304 

FBCO 

FC38 



LAb 

7,D+13 

000760 

0306 

9BC0 

FC8A 



LAb 

1 * T 5 7 

000/61 

0306 

9F87 




ST b 

1 * 4B7 

00076c 

0309 

03C0 

0000 

p 


LNJ 

b,VKPT 

000/63 





* 

•EMP*; 

000764 





* 


•ENP* ; 

00076b 





* 

•END* 

; (OF TEST MODE FOR 20bA) 

000766 





* 

LNP LtTTtK 

l; jf 

000767 





* 

* ENP *; 

(OF DATA PROCEDURE) f ^ 

000766 





* 

«end*; 

(OF SEGMENT) 

000769 





# 

•FINISH* 

000770 

030b 

63C8 

FC2C 


L34 

JMP 

*0 + 8 

000771 


0300 



LI 

LOU 

$ 




( ITLt 


CRMb3 * * RtV G* *CAKDRtADfcK / PUNCH (V (SAP) 


PAUL 9 7 




oooo 

L 


00077* 
000773 
000774 
00077b 
00077b 
000777 
000778 
000779 
000780 
000 78 X 
00078 * 
000783 
000784 
00078b 
000786 
000787 
000788 
000789 
000790 
000791 
000794 
000793 
000794 
00079b 
000796 
000 797 
000 796 
000799 
000600 
OOObOl 
000604 
000603 


0300 


0 3 UP 


LKR COUNT 


b3C0 0000 


006 b 


JMP 

ZRitX 

XLUC 

ZKitX 

CTRL LINK 

ZKSLX 

XLUC 

ZHRTC1 

XLuC 

ZHRTCC 

XLUC 

VKPI 

XLuC 

vkpni 

XLUC 

VKPH 

XLUC 

10 

XLUC 

b f A 7 W A 

XLUC 

HtKTZ 

XLUC 

btTTOA 

XLUC 

BINARY 

XLUC 

LAbLLl 

XLUC 

LABLL<? 

XLUC 

CKSLM 

XLUC 

lOXi 

XLUC 

B1NCUU 

XLUC 

AbCCNT 

XLuC 

blNOb 

XLUC 

PPROMb 

XLUC 

RPROMb 

XLUC 

ONLbhO 

XLUC 

WUROCO 

XLUC 

IOIa/URO 

XLUC 

JRt 

XLUC 

J10 

XLUC 

JPN 

XLuC 

JCb 

XLUC 

JMC 

XLUC 

AbKNLX 

LNO 

ZVKJLL,ZVKJLL 



TITLE 
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bVKJLM 

.LIST 





05/19/78 

1427.4k W 

03/19/ 78 1422.7 2U3270000 

OOOOOi 







T IT Lb 

2VKJLM * * REV 00* 

0U0U02 


0035 





XDtP 

KJLM 

000003 


0030 





XDt.P 

2VKJLM 

000004 


000b 




2KCUM 

COMM 

8 

000005 

0000 

0000 




0 

RESV 

10*0 

000006 

000 A 

0016 




T 5 

DC 

22 

000007 

000b 

5245 

4144 

3920 



TbxT 

•READY PUNCH PQR AS* 


OOOL 

5055 

4b43 

4820 







46 4 p 

5220 

4153 





000006 

0014 

4349 

4924 




TbAT 

•CU$* 

000009 

0016 

000b 




19 

uc 

14 

000010 

0017 

2C20 

4449 

444b 



text 

*, D1DN*'T RUPTS* 


001A 

2754 

2052 

5350 







5424 







oooun 

0011 

0011 




T 14 

dc 

1 7 

000012 

001F 

2C20 

4043 

4D4P 



TbAT 

•♦ MEMORY ADDRlSSS* 


0022 

5259 

2041 

4444 







5245 

5333 

2400 





000013 

0028 

OOOL 




T 16 

DC 

14 

OOOo14 

0029 

2C20 

3241 

4b47 



TbAT 

»* RANGE ERRORS* 


002C 

4320 

4552 

524F 







3224 







000U13 


0030 




2VKJLM 

bOu 

$ 

000016 

0030 

8P00 

0001 


K 


SAy/E 

<2KC0M+1*2*0011* 


0032 

0011 







000017 






* 

•bEGlN* 


00001a 

0033 

0F8 1 

0140 




b 

LI 

000019 






* 

• INTlGER * TEMPi 

000020 






* 

* I NT LGLR• RANGEi 

000021 

0035 

DFCO 

PPCA 



KJLM 

ST B 

5 i D 

000022 






* 

• IP* 

ID *E0» •HEX• (2008) 

000023 






* 

« THEN 

t 

000024 






* 


* GO TO* END OP LETTER M* (READER ONLY) 

000023 

0037 

b840 

0000 


P 


LDK 

6 * 1 D 

000026 

0039 

E970 

2008 




CMk 

6 * = 8200 

000027 

003b 

0901 

0143 




bb 

L4 

00U02a 






* 

bkkOk 

LABEL := •LI1LRAL* (Mi); 

000029 

0030 

C6 70 

4031 




LDk 

4,=19761 

000030 

00 3 F 

CP40 

0000 


*P 


SIR 

4,LABEL! 

000031 






* 

PUT NbW TbAT ("READY PUNCH PUR ASCli$"); 

000032 

0041 

PbCO 

PFC1 




LAb 

7*D*3 

000033 

0043 

9BC0 

FFC6 




LAo 

1 * T5 

000034 

0045 

9F8 7 





STd 

1 *SB7 

000033 

0046 

D3C0 

0000 


P 


LNj 

3«VKPNT 

000036 

0046 

D3C0 

0000 


P 


LNj 

5*JWR 

00003 7 






* 

WAIT 

PUR return; 

000036 






* 

CHECK 

STATE (SHOULD bb ON); 

000039 

004 A 

PbCO 

PPB6 




LAb 

7 * D+ 3 

000040 

004C 

6C01 





LDv 

6,1 

000041 

0040 

LP 07 





SIR 

6 * $b 7 

000042 

004L 

D3C0 

0000 


P 


LNJ 

5, JCS 

000043 

0050 

PBCO 

FFB2 




LAb 

7 *D+3 

000044 

0052 

9BC0 

0000 


P 


LAb 

1 *ASEJCT 

000043 

0054 

9F87 





STd 

1*$B7 

000046 






* 

INUUT 

(ASCII ERROR EJECT* OUIPUT TASK @0$); 

000047 

0055 

OPOO 

0005 


A 

N1 

NOP 

<I0W0RD+5 

00004a 

0037 

b840 

FPPb 




LDK 

6 *Ni♦ 1 

000049 

0059 

EF 40 

FPAA 




STR 

6 * D+4 

000030 

005b 

D3C0 

0000 


P 


LNj 

3*JI0 

000031 






* 

STATUS SHOULD BE : = *HbX* (6000); 

000032 






** WAIT 

FOR FIVE 

SECONDS FOR FIRST CARD 10 RUPT » 

000033 

0050 

b870 

8000 




LDK 

6*=-32766 

000034 

005k 

LP 40 

0000 


P 


STk 

6 * ST AT US 

000053 






# 

2 HRI CC ; = HER T L *5; 

000056 

0U6 1 

C840 

0000 


P 


LDR 

4*HERT 2 

000057 

0063 

4F05 





ML V 

4,5 

00005a 

0064 

CP 40 

0000 


P 


STR 

4.2HKTCC 

000059 






* 

2HRTCI J = HbkT L *5* 

000060 

0066 

0840 

0000 


P 


LDK 

5 *HERT2 

000061 

0068 

3P05 





MLV 

3*5 

000062 

0069 

OP 40 

0000 


P 


STR 

3 *2HKTCI 

000063 






* 

2HRTCL := 20? 

000064 

006b 

7C14 





LDV 

7,20 

000065 

0Q6C 

PP40 

0000 


P 


SIR 

7 *2HRTCl 

000066 






* 

CLOCK 

semaphore := o; 

000067 

0061 

6740 

0000 


P 


CL 

CKSEM 

00006a 






* 

L21 SEMAPHORE : = 0? 

000069 






** SbT 

DEVICE TO 

LEVEL 21? 

000070 

0070 

8740 

0000 


P 


CL 

L21SEM 

000071 






* 

TEMP 

;= SREG • MASK • *HbX* (03C0) • UN ION* 21** 

000072 

0072 

9840 

0000 


P 


LDR 

1 * SREG 

000073 

0074 

9570 

03C0 




AND 

1 * =960 

000074 

0076 

9470 

0015 




Ok 

1 * = 2 1 

000075 

007a 

9P40 

PP86 




STR 

1,D*1 

000076 

00 7 A 

PBCO 

P P 86 




LAb 

7,D*3 

000077 

00 7C 

9BC0 

PF84 




LAb 

1*D+1 

000076 

007 E 

9F8 7 





ST b 

1 *SB7 

000079 






* 

INOUT 

(TEMP, OJTPUT INTERRUPI fclOfc) ? 

000060 

00 7 P 

OFOO 

0002 


A 

N2 

NOP 

<1QWORD+2 

000081 

0061 

A840 

FPPb 




LDR 

2 *N2 + 1 

000082 

0083 

AP 40 

P F 80 




STK 

2 * D+4 

000083 

0065 

D3C0 

0000 


P 


LNj 

5 * J10 

000084 






* 

READ 

status ;= false; 

000085 

0067 

6740 

0000 


P 


CL 

READS! 

000086 

0069 

PbCO 

PF79 




LAb 

7*0 + 3 

000087 

008b 

9BC0 

0000 


P 


LAb 

1*CHAR 

000086 

0080 

9P87 





Sib 

1 * $ b 7 

000089 

008E 

OPOO 

0010 


X 

N3 

NOP 

<IOWORD+16 

000090 

0090 

b840 

FPPb 




LDk 

6*N3+1 

000091 

0092 

bP 40 

PF7 1 




STR 

6 * D + 4 

000092 






* 

1ULD 

(CHAR @0@,PUNCH e0e*80)» (PUNCH ASCII CARD) 

000093 

0094 

4C50 





LDV 

4,80 

000094 

0095 

CP40 

FF6P 




STR 

4 ,D+5 

000095 

009 7 

03C0 

0000 


P 


LNj 

3 * J IL 

000096 

0099 

0004 





DC 

4 

00009 7 






* 

CLOCK 

on; 

000096 

009 A 

PBCO 

PF68 




LAb 

7 * D ♦ 3 

000099 

009C 

9BC0 

0000 


P 


LAb 

1*ST ATWA 

000100 

009L 

9F87 





ST d 

1 *$B 7 

000101 






* 

INOUT 

(STATUS aAS*INPuT STATUS WORD @0G); 

000102 






# 

WAIT ; 


000103 

00 9 F 

OPOO 

OOOC 


A 

N4 

NOP 

<1OWORD+12 


(C~\ 


/€ 

V,y 
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000104 

OOA1 

0840 

FFFt 



LDk 

6 *N4+1 

00010$ 

00A3 

0F40 

FF60 



51k 

6,0 + 4 

00010c 

00A5 

D3C0 

0000 

P 


LNj 

$»JIU 

000107 


00A7 



L6 

too 

S 

000108 





# 

•IF* 

L21 SEMAPHORE »tU» 0 

oooiQy 





* 

•THEN * 

000110 





* 

•btGIN* 

000111 

00A7 

t8*0 

0000 

P 


LDk 

6,L2IStM 

000 lie 

00A9 

6993 




BNt2 

6 ,>L 7 

000113 





* 


•IF* CLOCK SEMAPHORE 'EU*0 

000114 





* 


•THtN* 

00011$ 





* 


•SO TO* wait; 

00011c 

OOAA 

C840 

0000 

P 


LDk 

4 ,CKStM 

000117 

OOAC 

497b 




BE2 

4,>L6 

QOOUC 





* 


LAbtL 2 ;= ’LITERAL* (R1)? 

000119 

OQAD 

D870 

$231 



LDk 

$,=21041 

000120 

OOAF 

bF40 

0000 

P 


ST k 

$,LABEL2 

000121 

OObi 

D3C0 

0000 

P 


LNJ 

5, Jkt 

000122 





* 


KtPUKT tKKOR; 

000123 

00b3 

FbCO 

FF4F 



LAb 

7,0+3 

000124 

00b$ 

9BC0 

FF60 



LAd 

1 , T9 

00012$ 

00b7 

9 F 87 




STB 

i,*B7 

00012c 

OObb 

D3C0 

0000 

P 


LNJ 

$ , VKPT 

000127 





* 


PUT TtXT (", DIDN’T KUPIV) ; 

00012b 





* 


•oo ro* cuNTiNut; 

000129 

OObA 

OF 6 1 

0001 



b 

L 7 

000130 





* 

* LND *; 

000131 





* 

CUNTiNUt; 


000132 


OObC 



L7 

tQu 

* 

000133 

OObC 

000$ 




DC 

$ 

000134 





* 

cluck off; 

00013$ 

OUbD 

D3C0 

0000 

P 


lnj 

s,jst 

000136 





* 

CHtCk STATUS FjK tRROkS; 

000137 





** 

MtMORY BYTE, 

MEMORY MODJLE ADDktSS CORRECT ?i 

000136 





* 

•BEGIN* 

000139 





# 


•INTEGER* MEMORY BYTE, MtMOkY MODULE, ADDRESS IS; 

000140 

OObF 

FbCO 

F F 46 



LAb 

7,04-6 

000141 

OOLl 

9BC0 

F F 41 



LAd 

l,D+3 

000142 

00C3 

9F87 




STd 

1 »3>b 7 

000143 





* 


1NUUT (MtMURY BYTE, 1NPUI MtMuRY BYTE @0£); 

000144 

00C4 

OF 00 

0006 

A 

N$ 

NUP 

<iUWOKD+6 

00014$ 

00C6 

0840 

FFFt 



LDk 

6 , N $ + 1 

00014C 

00C6 

tF 40 

FF3t 



STk 

6,04-7 

000147 

OOCA 

D3C0 

0000 

P 


LNJ 

5, JiU 

00014o 

OOCC 

FbCO 

FF39 



LAb 

7,046 

000149 

ooct 

9bC0 

FF 35 



LAb 

1,044 

0001$0 

00 DO 

9F87 




ST b 

1 ,SB 7 

000151 

OODi 

OF 00 

0008 

X 

N 6 

NUP 

<IOWURD+8 

000152 

00D3 

0840 

FFFt 



LDk 

6 * N6 + 1 

000153 

000$ 

0F40 

FF 31 



STk 

6,04/ 

000154 

0007 

D3C0 

0000 

P 


LNJ 

$,J10 

000155 





* 


1NUUT (MEMORY MUDULt, INPUT MuDULt ADDRE^SfeOe); 

000156 





* 


•IF* •BITS* fcl,oe MEMORY MODULE •tQ* l 

000157 





* 


•THEN* 

00015b 

0009 

08*0 

FF2A 



LDk 

6,04* 

000159 

oOOb 

CB09 




btVN 

6 , >L 11 

000160 





* 


ADDRESS IS ;= *HtX* (8000) ’UNION**BITS*@1$,l^MtMORYBY Tt 

000161 





* 


»tLSt * 

000162 

OODC 

C640 

FF26 



LDk 

4*043 

000163 

ooot 

4041 




SUk 

4,1 

000164 

OODF 

C470 

6000 



Ok 

4,=-327b8 

00016$ 

QOti 

CF40 

F F 23 



STk 

4,04$ 

000166 

0013 

OF 66 




b 

>L 1 2 

000167 


0004 



Lll 

tuu 

$ 

00016b 





* 


ADDRESS IS : = •BITS* ^ 1 * 16? MEMORY BY 11; 

000169 

OOE4 

0640 

FF 11 



LDk 

6,043 

000170 

00 be 

6041 




SUk 

6*1 

000171 

OOE7 

OF 40 

FF ID 



STk 

6*04$ 

000172 


0009 



L12 

tQU 

% 

000173 





* 


• IF* •LOCATION* (CHAR fe»40e) 

00017* 





* 


•Nt* ADDktSS IS 

00017$ 





* 


• THEN* 

000176 





* 


•BtClN* 

000177 

00L9 

OF 00 

0028 

A 

N7 

NUP 

<CHAk44J 

000176 

OOEb 

0840 

FFFt 



LDk 

6 ♦ N 7 4 1 

0001 79 

OOtD 

0940 

F F 1 7 



CMk 

6*04$ 

000180 

oolf 

0901 

0012 



bt 

L 1 3 

000181 





* 


LAbtL 2:= ’LITERAL* (MA); 

000182 

OOF 1 

C870 

4D41 



LDk 

4,=19777 

000183 

OOF 3 

CF 40 

0000 

P 


STk 

4 * LABEL 2 

00018* 

OOF $ 

D840 

0000 

P 


LDk 

SRS * SET)OA 

00018$ 

OOF? 

C640 

FFOD 



LDk 

SR4,04$ 

000186 

00 F 9 

D3C0 

0000 

P 


LNJ 

5 , Jkt 

000187 





* 


REPORT tKKOR; 

000186 

OOF b 

FBCO 

FFOA 



LAb 

7,046 

000189 

OOF 0 

9BC0 

F F 20 



LAo 

1 * T 14 

000190 

OOFF 

9 F 6 7 




STb 

1 *SB 7 

000191 

010U 

D3C0 

0000 

P 


ENd 

5 * V K P T 

000192 





# 


PUT TtXT ("* MtMURY ADDKtSSS •*) ; 

000193 





X 


• tND* ; 

000194 

0102 

FBCO 

FF03 


L13 

LAb 

7,046 

00019$ 

0104 

9BC0 

F tF D 



LAo 

1,042 

000196 

010c 

9F87 




STb 

1 , Sb 7 

000197 





* 


1N0UT (RANGE, INPUT RANUt feOfe) ; 

000196 

0107 

OFOO 

0009 

X 

N8 

NOP 

< IOWOKD 49 

000199 

0109 

0840 

FFFt 



LDk 

6 , Nb 4 1 

000*00 

010b 

OF 40 

FtFb 



S 1 K 

6,04 7 

000201 

010D 

D3C0 

0000 

p 


LNj 

$ * JiU 

000 *0* 





X 


•IF* RANGE • Nt • 0 

000203 





* 


• T HtN • 

00020 * 





ft 


•BEGIN* 

000205 

01 OF 

0840 

FtF2 



LDk 

6,042 

000206 

0111 

6901 

0012 



BE* 

6 * L 1 $ 

000207 





* 


LABEL 2 := ’LITERAL* (kt) ; 

00020 b 

0113 

C870 

$245 



LDk 

4, =21061 

000209 

011 $ 

CF40 

0000 

p 


ST K 

4 , LABEL2 

000210 

0117 

D840 

0000 

p 


LDk 

3>KS , St TTOA 

000211 

0119 

C840 

Ftt6 



LDK 

$K4 * 0 + 2 

000212 





* 


LOAD R4 K$ (KANGt, CLEAk); 

000213 

Oilb 

D3C0 

0000 

p 


LNJ 

$ , Jkt 

000*; 14 





* 


REPORT error; 

00021 $ 

0 1 ID 

FBCO 

F Ct6 



LAd 

7,046 

00021 c 

01 IF 

9BC0 

FF08 



LAd 

1,116 



TXT Lh. 


CRMS3,*KLV G*,CARDkEADER / PUNCH TV (SAF) 


PAUL X 00 


000217 

0121 

9F87 




STB 


00021 b 

0122 

03C0 

0000 

P 


LNj 

5 , VKPT 

000*19 





* 


PUT TbXl ("$ RANGE fcRROK$”)» 

000220 





# 


/END* ; 

000221 





* 

*ENP» 

5 

000222 


0124 



bib 

EQU 

$ 

000223 





# 

dRROk 

LAbbL ;= 'LITERAL* (M2) 5 

00022 **- 

01*4 

6870 

4032 



LOk 

6 , = 19762 

00022 b 

01*6 

EF40 

O000 

P 


SIR 

6 ,LAbELI 

000226 

01*6 

FBCO 

FEDA 



LAd 

7,0*3 

000227 

Ol*A 

9BC0 

0000 

P 


LAb 

1,SETTOR 

00022 b 

01 *C 

9F87 




ST b 

1, $B7 

000229 





* 

1 N0UI 

(SET TU HOLLER 1TH,OUTPUT TASK^Q©)5 

000230 

0120 

OF 00 

0005 

X 

N9 

NOP 

<I0W0k0*5 

000231 

01 *F 

C840 

FFFb 



LOR 

4, N9 + 1 

00023* 

0131 

CF 40 

FLO* 



STR 

4,0 + 4 

000*33 

0133 

O3C0 

0000 

p 


LNj 

5 , J I U 

000* 3*t 





* 

STATUS SHOULD 6b : = *HEX* (8000), 

00023b 

0135 

6870 

6000 



LOR 

6,=-32758 

000236 

0137 

EF 40 

0000 

p 


STR 

6 ,ST AT US 

000*37 

0139 

FbCO 

FEC9 



LAd 

7,0*3 

000*36 

013b 

9BC0 

0000 

p 


LAd 

1, 1LLEGA 

000*39 

0130 

9F67 




ST d 

1,SB7 

000*40 

013t 

OFOO 

ooio 

X 

N10 

NOP 

<I0W0RP+16 

000*41 

0140 

C840 

FFFb 



LOR 

4, N 10*1 

000*4*. 

014* 

CF40 

FbCl 



STR 

4,0*4 

000*43 

0144 

5C04 




LOV 

5,4 

000244 

0145 

OF 40 

FbBF 



STR 

5,0*5 

00024b 

0147 

03C0 

0000 

F 


LNj 

5 , J 1L 

000*46 





# 

1 OLD 

(ILLEGAL ASCII PUNCH ©Ofc,4);(PUNCH ILLEGAL PUNCHES) 

000247 

0149 

03C0 

0000 

P 


LNj 

5, JSE 

000*46 





* 

CHbCK 

STATUS FOR ERRORS; 

000*49 





* 

tRKOK 

LAbbL ;= •LITERAL* (M3); 

000250 

014b 

6870 

4D33 



LOR 

6,=19763 

000*51 

0140 

OF 40 

0000 

P 


ST R 

6 ,LAbLLl 

000*52 

014F 

FBCO 

Fbb3 . 



LAb 

7,0+3 

000*53 

olbi 

9BC0 

0000 

P 


LAb 

1,3bT TOA 

000254 

0153 

9F87 




ST b 

1 ,$b7 

000*55 





* 

INPUT 

(SET TU ASCII,OUTPUT TASK ; 

000*56 

0154 

OFOO 

0005 

X 

Nil 

NOP 

<IUWQK0*5 

000*57 

0156 

C840 

FFFb 



LOR 

4 , N11 ♦ 1 

00025b 

0156 

CF 40 

FbAB 



STk 

4,0*4 

000*59 

015A 

03C0 

0000 

p 


LNj 

5 , J IU 

000*60 

015C 

FBCO 

FbA6 



LAb 

7,0*3 

000*61 

015L 

9BC0 

0000 

p 


LAu 

1 ,BUFFI 

000*62 

0160 

9 F 8 7 




ST b 

1 , $ b 7 

000263 

0161 

6C54 




LOV 

6,84 

000264 

0162 

t F 40 

FbAl 



SIR 

6,0+4 

000*65 

0164 

4C2 6 




LOV 

4,40 

000*66 

0165 

CF40 

Fb9F 



STR 

4,0*5 

000*67 





* 

FILL 

BUFFER (BUFFER 1,40,•HEX•(2020)); 

000*66 

016 7 

08 70 

2020 



LOR 

5, = 82*4 

000*69 

0169 

OF 40 

Fb9C 



STR 

5,0 + 6 

000*70 

0 1 6 d 

03C0 

0000 

p 


LNJ 

5 , JFB 

000271 

0160 

FBCO 

Fb95 



LAb 

7,0+3 

000*72 

0 16 F 

9BC0 

0000 

p 


LAB 

1,bUF F1 

000*73 

0171 

9F87 




ST b 

1 ,$b7 

000* 74 

0172 

OFOO 

0010 

X 

N12 

NOP 

<IUtoOKP*16 

000*75 

0174 

B840 

FFFb 



LOR 

6 , N12+1 

000*76 

0176 

tF40 

Fb80 



ST R 

6,0 + 4 

000*77 





* 

1UL0 

(bUF FER1@Je, PUNCH ^0^,80); 

000*76 

0178 

4C50 




LOV 

4,80 

000*79 

0179 

CF 40 

Fb8B 



STR 

4,0+5 

000*80 

0170 

03C0 

0000 

p 


LNj 

5 , J I L 

000*81 

0170 

03C0 

0000 

p 


LNJ 

5 , JSE 

000 *8* 





* 

CHECK 

STATUS fjr errors; 

000*83 





# 

tND OF LblTbk MI 

000*84 





* 

•tND*i 

(OF PKUCEOURE) 

000285 





* 

• END*; 

(UF SEGMENT) 

000286 





* 

•FINISH* 


000*87 

017F 

63C8 

Fb80 


L4 . 

JMP 

*0 

000*86 


0161 



LI 

LOU 

$ 

000*89 

0161 

83C0 

0000 

p 


JMP 

2KSEX 

000*90 






XLJC 

2K$EX 

000*91 






CTRL LINK *K$EX 

000*9* 






XLOC 

2HRTC1 

000*93 






XLUC 

2HRTCL 

000*94 






XLJC 

ZHKICC 

000*95 






XLOC 

VKPT 

000*96 






XLOC 

VKPNT 

000*97 






XLOC 

10 

000*98 






XLOC 

STATWA 

000*99 






XLOC 

STATUS 

000300 






XLUC 

HEKT* 

000301 






XLOC 

SETTUH 

00030 * 






XLUC 

SET T QA 

000303 






XLOC 

ASEJCT 

000304 






XLOC 

REAPS f 

000305 






XLOC 

LAbELl 

000306 






XL jC 

LAbbL* 

000307 






XLOC 

CKSEh 

000306 






XLOC 

L21SEM 

000309 






XLOC 

SKEG 

000310 






XLOC 

BUFFI 

000311 






XLOC 

CHAR 

000312 






XLOC 

1LLEGA 

000313 






XLOC 

1OtoOKP 

000314 






XLOC 

JRE 

000315 






XLOC 

JIU 

000316 






XLOC 

J IE 

000317 






XLOC 

JWK 

00031b 






XLOC 

JSE 

000319 






XLUC 

JCS 

000320 






XLOC 

JFB 

000321 

0183 

0030 




bNP 

ZVKJEM * 2VKJLM 

0000 EkR COUNT 

L 











i itle 

CRMS3,*REV 

i G • 

.CARDREADER 

/ PUNCH 

TV (SAF) PAGE iOl 

ZVKJLN 

• Lib] 





05/19/78 

1429.3R W 

05/19/78 1422.7 4893930000 

GOOOQl 







TITLE 

ZVKJLN.»REV 00* 

OOOOQ2 


0077 





XOEF 

KJLN 

000003 


0072 





XOEF 

ZVKJLN 

000004 


0008 




ZKCOM 

COMM 

8 

G00OQ5 

0000 

0000 




0 

RE5V 

11.0 

000006 

000b 

00 1A 




T 6 

PC 

26 

000007 

oooc 

5245 

4144 

5920 



TEXT 

•READY ASCII DECK F» 


GOOF 

4153 

4349 

4920 







4445 

4 340 

2046 





00000b 

0015 

4F 52 

2052 

4541 



TEXT 

•UR READS• 


001b 

4424 







000009 

0019 

0000 




T 12 

DC 

14 

000010 

00 1A 

2C20 

4449 

444E 



TEXT 

*. DION* * T RUPT$» 


0010 

2754 

2052 

5550 







5424 







OOOOli 

0021 

0011 




T18 

DC 

17 

000012 

0022 

2C20 

4045 

4D4F 



TEXT 

•. MEMORY ADDRESS** 


0025 

5259 

2041 

4444 







5245 

5353 

2400 





000013 

002b 

OOOF 




T20 

DC 

15 

000014 

002C 

2C20 

5241 

4E4 7 



TEXT 

• . RANGE ERROR S* 


002F 

4520 

4552 

524F 







5220 

2400 






000016 

0034 

0017 




T39 

DC 

23 

000016 

0035 

494C 

4C45 

4741 



TEXT 

• ILLEGAL ASCII NOT • 


003b 

4020 

4153 

4349 







4920 

4E4F 

5420 





000017 

G03E 

5245 

4144 

2400 



TEXT 

• READS• 

00001b 

0041 

OOOF 




T 43 

DC 

15 

000019 

0042 

2C20 

5846 

4552 



TEXT 

•, XFER TO MANYS* 


0045 

2054 

4F20 

4041 







4E59 

2400 






000020 

004 A 

000b 




745 

DC 

14 

000O21 

004b 

2C20 

5241 

4E4 7 



TEXT 

». RANGE WRONGS• 


0041 

4520 

5752 

4F 4E 







4724 







00002c 

0052 

001b 




T49 

DC 

2 7 

000023 

0053 

5345 

434F 

4E44 



TEXT 

•SECOND CARD OFFSET* 


0056 

2043 

4152 

4420 







4r46 

4653 

4554 





000024 

005C 

2053 

5441 

434b 



TEXT 

• STACKtDS* 


0051- 

4544 

2400 






000026 

0061 

oooe 




T 52 

DC 

14 

000026 

0062 

2C20 

4552 

524F 



TEXT 

•. ERROR EJECTS* 


0065 

5220 

454A 

4543 







5424 







000027 

0069 

OOOF 




T 53 

DC 

15 

00002b 

006A 

5 3 54 

4F50 

2C20 



TEXT 

•STOP. RUNOUT *.Z*ODOA*.*S* 


0060 

5255 

4E4F 

5554 






0070 

QDQA 

2400 






000029 


0072 




zvkjln 

EQU 

S 

000030 

0072 

8F00 

0001 


K 


SAvt 

<ZKCOM*1,Z*OOU* 


0074 

0011 







000031 






* 

>bEGlN* 


00003c 

0075 

OF 81 

02EA 




b 

LI 

000033 






* 

•INTtGER* 1,ASCII BIT; 

000U34 






* 

•integer* range; 

000036 

00 7 7 

OF CO 

FFbb 



K JEN 

ST b 

5.D 

000036 






# 

• IF • 

ID •EQ * •HEX * (2088) 

000037 






* 

•THEN 

• 

00003b 






* 


♦GO TO* END OF LETTER N» (PUNCH ONLY) 

000039 






* 

RESTART PROCEDURE; 

000040 

00 79 

8.840 

0000 


P 


COR 

6,10 

000041 

007b 

L970 

2088 




CMR 

6,^8328 

00004c 

0070 

0901 

O2E0 




BE 

L47 

000043 


007F 




L5 

EQU 

S 

000044 






•Hr 

error 

LAbEL ;= •LITERAL* (Nl) ; 

00004b 

00 7 F 

E87G 

4E31 




LOR 

6,520017 

000046 

0081 

EF 40 

0000 


P 


STR 

6.LABEL1 

000047 

0083 

FbCO 

FF 80 




CAd 

7,044 

00004b 

00b5 

9bC0 

0000 


P 


EAd 

1,BINARY 

000049 

008 7 

9F87 





STB 

l,Sb7 

OOOObO 






* 

1NUU I 

(INITIALIZE, OUTPUT CONTROL &0&) 5 

000051 

008b 

AbCO 

0000 


P 


LAb 

2, lOWORD 

000052 

OObA 

AFCO 

FF7A 




ST B 

2,045 

OOOu 5 3 

OObO 

D3C0 

0000 


P 


LNJ 

5 , J 10 

000054 






* 

PUT NEW TEXT (’’READY ASCII DtCK FOR READ**'): 

000055 

OObE 

FBCO 

FF75 




LAB 

7,044 

000056 

0090 

9BC0 

FF7A 




LAb 

1 , T 6 

000057 

0092 

9F87 





Sib 

1.SB7 

00005b 

0093 

03C0 

0000 


P 


LNJ 

5,VKPNT 

000059 

0095 

03C0 

0000 


P 


LNj 

5, JWR 

000060 






* 

WAIT 

FOR return; 

000061 






* 

CHECK 

STATE (SHOULD 6t ON); 

00006^ 

0097 

FbCO 

F F 6 C 




LAB 

7,044 

000u63 

0099 

6C01 





LDV 

6,1 

000064 

009 A 

EF0 7 





STR 

6, SB 7 

000065 

009b 

D3C0 

0000 


P 


LNJ 

5 , JCS 

000066 






* 

•IF* 

ID * EQ • • HEX * (2008) 

000067 






* 

•THEN 

• 

00006b 

0090 

E840 

0000 


P 


LDR 

6,ID 

000069 

00 9 F 

E9 7 0 

2008 




CMR 

6,58200 

00007U 

00 A1 

098 F 





BNe 

>L7 

000071 

GOAc 

FBCO 

FF61 




lAd 

7,044 

000072 

00A4 

9BC0 

0000 


P 


LAb 

1.SETTOA 

000073 

OOAo 

9F87 





STB 

1 , SB 7 

000074 






* 


1NUUT (SET TO ASCII,OUTPUI CONFIGURATION fe?Ofc) 

000075 






* 

< »ELSe 

* 

000076 

OOA 7 

OF 00 

0006 


X 

N1 

NOP 

<I0W0RD411 

000077 

00A9 

C840 

FFFE 




ldr 

4 , Nl 4 1 

00007b 

OOAb 

CF 40 

FF59 




STR 

4,045 

000079 

OOAO 

D3C0 

0000 


P 


LNJ 

5,JI0 

000080 

00 A F 

OF 8b 





b 

>L8 

000081 

OObO 

FbCO 

F F 53 



L7 

LAb 

7,044 

oooubc 

OObC 

9BC0 

0000 


P 


LAb 

l.ASEJCI 

0u0o83 

0004 

9F8 7 





ST b 

1 ,SB7 

000084 

0065 

OFOO 

0005 


X 

N2 

NOP 

<I0W0RD45 

000085 

0007 

E840 

FFFE 




LDR 

6,N241 

OOOObo 

00b9 

EF 40 

FF4B 




STR 

6,045 

000087 

0000 

D3C0 

0000 


p 


L Nj 

5 , JIO 

OOOObo 






* 


INOUT (ASCII ERROR EJECI,OUTPUT TASK @0©)* 

000089 


OObO 




L8 

EQU 

S 



TITLE 

CRMS3 * 

* REV G* 

*CAKDKEADEK / PUNCH TV (SAP) PAGE i02 

000090 





* 

STATUS 

SHOULD BE ;= * HEX * (8000)? 

00QU9I 





** 

WAIT 5 SECONDS 

MAXIMUM FOR FIRST CARD TO RUPi? 

00QU92 

oobO 

E87G 

8000 



LDR 

6***32758 

000093 

OObF 

LF40 

0000 

P 


SIR 

6,STATUS 

000094 





* 

2HRTCC 

; = HEKT l * 5? 

000093 

00C1 

C840 

0000 

P 


LOR 

4 * HERT2 

000096 

00C3 

4F05 




MLV 

4,5 

000097 

00C4 

CF40 

0000 

P 


STR 

4,2HRTCC 

000O93 





# 

/.HR TCI 

:= HEKT2 * 5; 

000099 

00C6 

0840 

0000 

P 


LOk 

3 * HERT L 

000100 

OOCb 

3F05 




MLV 

5*5 

000101 

00C9 

0F40 

0000 

P 


STk 

5 *2HRTC1 

000102 





* 

^HRTcL 

; = 20? 

000103 

OOCb 

7C14 




LDV 

7,20 

000i04 

oocc 

FF40 

0000 

P 


STR 

7,2HRTCL 

000103 





# 

CLOCK 

SEMAPHORE := o; 

000106 

OOCb 

8740 

0000 

P 


CL 

CKSEM 

000107 





* 

L21 SEMAPHORE : = 0; 

0001Ob 





*# 

SET DEVICE 10 LEVEL 215 

000109 

oodo 

8 740 

0000 

P 


CL 

L21SEM 

000110 





* 

1 ;= SKEG •MAS<• • HEX• (03C0) •UNION* 21: 

000111 

0002 

9840 

0000 

P 


LOR 

1 * SREG 

000112 

0004 

9570 

03C0 



AND 

1*5960 

000113 

0006 

9470 

0015 



OR 

1 * = 21 

000114 

0008 

9F40 

FF 28 



STR 

1*0+1 

000113 

OOOA 

FBCO 

F F 2 9 



LAs 

7*0+4 

000116 

OOOC 

9BC0 

FF24 



LAd 

1*0+1 

000117 

oout 

9F87 




STB 

1 *$B7 

oooiib 





* 

INOUT 

(I,OUTPUT INTERRUPT ©0©)? 

000119 

GOOF 

OF 00 

0002 

A 

N3 

NOP 

<IOWORO+2 

000120 

GGLi 

A840 

FFFE 



LOR 

2 *N3+1 

000121 

00E3 

AF 40 

FF2 1 



SIR 

2*0 + 5 

000 12c 

00E3 

03C0 

0000 

P 


LNj 

5 * J10 

000123 





ik 

READ S 

T A T US ;= FALSE? 

000124 

0 0 E 7 

8740 

0000 

P 


CL 

READS! 

000123 

00E9 

FBCO 

F F1A 



LAd 

7*0 + 4 

000126 

OOEb 

98C0 

0000 

P 


lab 

1*BUFF1 

000127 

OOtO 

9F87 




STb 

1 *SB7 

00012b 

oott 

OFOO 

0007 

X 

N4 

NOP 

<IOWORO+7 

000129 

OOF 0 

L840 

F FFE 



LOR 

6 * N4+1 

000 130 

OOF 2 

LF40 

FF12 



ST R 

6*0+5 

000131 





* 

I OLD ( 

BUFFER ©0©,READ ©0©,NUMBER OF COLUMNS)? 

000132 

00F4 

C840 

0000 

P 


EDR 

4,NUMBE R 

000133 

OOF 6 

CF40 

FFOF 



STR 

4,0+6 

000134 

00 Fb 

O3C0 

0000 

P 


LNJ 

5, J1L 

000133 

OOFA 

0004 




DC 

4 

000136 





* 

CLOCK 

on; 

000137 

OOF b 

FBCO 

FF08 



LAd 

7,0+4 

00013b 

OOFO 

9BC0 

0000 

P 


LAd 

1,5?ATWA 

000139 

GOFF 

9F87 




ST D 

1, SB7 

000140 





* 

INOUT 

(STATUS aAS* INPUT STAIUS W0Kd@0©); 

000141 





* 

wait: 


000142 

0100 

OFOO 

OOOC 

X 

N5 

NOP 

<IOWORO+12 

000143 

0102 

L840 

FFFE 



LOR 

6,N5+1 

000144 

0104 

EF40 

FFOO 



ST K 

6,0+5 

000143 

0106 

03C0 

0000 

p 


LNJ 

3 , J10 

000146 


0108 



L9 

EUU 

S 

00014 7 





* 

•IF* L21 SEMAPHORE *£u» 0 

00014b 





* 

• THEN* 


000149 





* 

•bEGIN* 

000150 

0108 

£840 

0000 

p 


LOR 

6,L21SEM 

000151 

010A 

6993 




bne^. 

6 , >L 10 

000152 





* 


•IF* CLOCK SEMAPHORE *£0* 0 

000153 





* 


•THEN* 

000154 





* 


•GO TO* WAIT? 

000153 

010b 

C840 

0000 

p 


EOR 

4,CKSEM 

000156 

0100 

497b 




BEb 

4 , >L9 

000157 




/ 

* 


LABEL 2J = 'LITERAL* (Rl) ? 

00015b 

010L 

0870 

3231 



LOk 

3,=21041 

000159 

0110 

OF 40 

0000 

p 


STR 

3,LABEL2 

000160 

0112 

03CO 

O000 

p 


LNJ 

3 , JKE 

000161 





* 


REPORT ERROR? 

000162 

0114 

FBCO 

FEEF 



LAd 

7,0+4 

000163 

0116 

9BC0 

F F 02 



LAd 

1,712 

000164 

Glib 

9F87 




STb 

1 , $B7 

000165 

0119 

03CO 

0000 

p 


LNJ 

3 , VKPT 

000166 





* 


PUT TEXT (”, 01 ON • T KURTS”)? 

000167 





* 


•GO TO* CONTINUE? 

000 x 6b 

011b 

OF 8 1 

0001 



B 

L10 

000169 





* 

•ENO* ; 


000170 





ik 

CONTINUE; 


000171 


OilD 



L10 

EGo 

S 

000172 

Olio 

0005 




OC 

5 

ooo 173 





* 

CLOCK 

OFF? 

000174 

011b 

03C0 

0000 

p 


LNJ 

3 , JSE 

000175 





* 

CHECK 

STATUS FOR ERRORS? 

000176 





# 

» IF • • 

BITS* 61*15© STATUS WAS * NE * 1 

000177 





* 

• THEN* 


00017b 





ik 

• 

GO TU* RESTART PROCEDURE? 

000179 





** 

MEMORY MODULE i 

MEMORY BYTE ADDRESS CORRECT ?i 

000180 





ik 

•BEGIN* 

000181 

0120 

£840 

0000 

p 


LOK 

6 * ST ATWA 

000182 

0122 

6881 

FF5C 



BGt2 

6 ,L5 

000183 





ik 


'INTEGER* MEMORY MODULE,MEMORY BYT£,ADDRESS IS? 

000184 

0124 

FBCO 

FEE2 



LAB 

7,0+7 

000185 

0126 

9BC0 

FEDE 



LAb 

1,0 + 5 

000186 

0128 

9F87 




ST b 

1 *$B 7 

000187 





ik 


INUUT (MEMORY BYTE, INPUl MEMORY BYTE ©0©)? 

000188 

0129 

OFOO 

0006 

X 

N6 

NOP 

< 1OWORO+6 

000189 

012b 

C840 

FFFE 



LOR 

4 , N6+1 

000190 

0120 

CF40 

FEDA 



STR 

4*0 + 8 

000191 

012F 

03C0 

0000 

p 


LNJ 

5 * J10 

000192 

0131 

FBCO 

FEDS 



LAd 

7,0+7 

000193 

0133 

9BC0 

FEDO 



LAb 

1,0 + 4 

000194 

0135 

9F87 




STb 

1 ,$B7 

000195 

0136 

OFOO 

0008 

X 

N7 

NOP 

< 10W0KD + 8 

000196 

0138 

£840 

FFFE 



LOR 

6 , N7 + 1 

000197 

013A 

EF40 

FECD 



STR 

6*0 + 8 

000198 

013C 

03C0 

0000 

p 


LNJ 

5, JIO 

000199 





* 


INOUT (MEMORY MODULE* INPUT MuDULE ADDRESS ©Q@) 

Q0020U 





* 


•IF* *B1TS* ©1,0© MEMORY MODULE *Eq* 1 

000201 





* 


•THEN* 

000202 

013E 

£840 

FEC5 



LOR 

6*0 + 4 




TITLE 

CRMS3* 

* K6V G* 

,CARDRLADLR / PUNCH 

TV (bAF) PAGL 103 

000203 

0140 

6B09 





66VN 

6 , >L 1 5 

000c04 





* 



ADDRESS lb ;= •HLX•(800u)* UN I ON•*biTb•£13♦IfeMLMURY BY T L 

OOO2O5 





# 



• ELSE • 

000206 

0141 

C840 

F6C3 




LOK 

4,0 + 3 

000207 

0143 

4041 





bGR 

4,1 

000206 

0144 

C470 

8000 




OR 

4,=-32758 

000209 

Ol4o 

CF40 

F6BF 




bTK 

4,0 + 6 

OOOclU 

0146 

OF 86 





B 

>L 16 

000211 


0149 



L15 


BUG 

$ 

000212 





* 



ADDRESS lb ;= *B1TS* felbfie MEMORY BY 11; 

0002 13 

0149 

6840 

FtBb 




LOR 

6,0+5 

000214 

014b 

6041 





SUK 

6,1 

000215 

014C 

6F40 

F6B9 




SIR 

6,0 + 6 

000216 


0146 



616 


BQu 

$ 

OOU217 





* 



•IF* ‘LOCATION*(BUFFERifeNUMbEK OF COLUMNS / 2@) 

0002U 





* 



»N6» ADDRESS lb 

000219 

0146 

6840 

0000 

P 



LOR 

6,NUMBER 

000220 

0130 

6061 





bAK 

6,1 

000221 





# 



* THEN* 

000222 





# 



•BEGIN* 

000223 

0151 

0 F 0 0 

0000 

X 

N8 


NUF 

<bUF F1 

000224 

0153 

6A40 

FFF6 




AOO 

6,Nb♦ 1 

000223 

0133 

6940 

F6B0 




cmk 

6,0 + 6 

000226 

0157 

0901 

0012 




bL 

LI 7 

000227 





# 



LA3LL 2 ;= *L1TLRAL* (Mm)5 

000226 

0159 

t870 

4041 




LOR 

6,=19777 

000229 

015b 

LF40 

0000 

P 



bTK 

6,LABLL2 

000230 

0150 

0840 

0000 

F 



LOR 

$R3,SbT TOA 

000231 

013F 

C840 

F6A6 




LOR 

3>R4 , L> + 6 

000232 

0161 

O3C0 

0000 

F 



LNJ 

3, JRL 

000233 





* 



kepori lrror; 

000234 

0163 

FBCO 

F6A3 




LAb 

7,0+7 

0002 3 3 

0163 

96C0 

F6BB 




LAd 

1 , T 1 8 

000236 

0167 

9F8 7 





bl D 

1 ,Sb7 

000^37 

0166 

03CO 

0000 

F 



LNJ 

3 , VKP T 

000436 





# 



PUT TEXT (", MLMURY A00kESS$m); 

000239 





* 



»6N0*; 

00024U 

0 16 A 

FBCO 

F69C 


L1 7 


LAb 

7,0+7 

000241 

016C 

9BC0 

F696 




LAb 

1*0+3 

OuO 4 4 2 

0166 

9F67 





ST b 

l*a»B7 

000443 





* 



iNUUT (RANGE, INPUT RANGt feOfej ? 

000244 

0 1 6F 

OFOO 

0009 

X 

N9 


NOP 

<IOWURD+9 

000443 

0171 

6840 

FFF6 




LOR 

6 , N 9 + l 

000446 

0173 

LF4G 

F694 




SIR 

6,0 + 8 

000247 

01 75 

D3C0 

0000 

F 



LNJ 

5, JIU 

00044b 





* 



•IF* RANGE •N6• 0 

000c49 





* 



•THEN* 

000230 





* 



•bLGIN* 

000c 3i 

017 7 

6840 

F 68b 




LOK 

6,0+3 

000232 

0179 

6901 

0019 




B6 l 

6 , L19 

000233 





* 



LABEL 2 := »L1TLKAL» (R u )5 

000254 

017b 

C870 

5245 




LOR 

4,=21061 

000253 

0170 

CF40 

0000 

F 



bTK 

4,LABEL2 

000256 

017 F 

0840 

0000 

F 



LOK 

3>R5,SLTTOA 

000257 

0161 

C840 

F 68 1 




lOK 

$K4,0+3 

000256 





* 



LOAD R4 R3 (RANGL, CLLAk); 

000c59 

0183 

03C0 

0000 

F 



LNj 

5 , JRL 

000260 





* 



REPORT LKRUR; 

000261 

0183 

FbCG 

F681 




LAb 

7,0+7 

OOO262 

0 16 7 

9BC0 

F6A3 




LAd 

I,T20 

000263 

0189 

9F87 





STb 

1 ,bb7 

000264 

0 i 8 A 

D3C0 

0000 

F 



LNj 

5,VK P T 

000263 



* 



PUT TEXT ("* RANGE ERROR *"); 

OOO260 

018C 

FBCO 

F 67A 




LAd 

7,0+ 7 

000267 

oiat 

6840 

F674 




LOK 

6,0 + 3 

000266 

0190 

6 F 0 7 





bl R 

6 , S b 7 

OOO469 

0191 

03C0 

0000 

F 



LNj 

3, JFN 

000270 





* 



PUT NUMBER (RANGE); 

000271 





* 



# » LNO *; 

00027c 





* 


•END* 


000273 





** 

IF 

MARK bLNSL 

THEN DATA UN 2 CARDS; 

000274 


0193 



L 19 


LQU 

$ 

000273 





* 


* IF* 

•BITS* £1,12fe FULbOO CARD STATgS *Lq* 1 

000276 





* 


• thln 

000277 





* 


•BtGiN* 

000276 

0193 

82CO 

0000 

F 



Lb 

FULbOU, L »1000• 


0195 

1000 







000279 

0196 

05 Ab 





BbF 

>L2 1 

OQO28O 




* 



•INTEGER* TEMP; 

000261 





* 



ERROR LABEL := »LITLRAL•(N2); 

000282 





** 

40 

COLUMN ?; 


000283 

0197 

6870 

4632 




LOR 

6,=2001B 

000284 

0199 

LF40 

0000 

F 



bl K 

6,LABEL 1 

000283 





* 



•IF* * blT S» el,life FULbOU CARg STATUS *LU* 1 

000286 

000287 

019b 

62C0 

0000 

F 

* 


Lb 

•THEN* 

FULbOU,2*0800* 


0190 

0800 






000286 

0196 

0567 





BbF 

>L22 

000289 





# 



TEMP ;= 20 * 2VDAF 

000290 





# 



•ELSE* 

000291 

0196 

C840 

0000 

F 



LOK 

4,2 V S A F 

000292 

0 1A1 

4F 14 





ML V 

4,20 

000493 

01A2 

CF40 

F 661 




SIR 

4,0 + 4 

0O029H 

01A4 

OF 86 





b 

>L23 

000293 

01 A3 

6840 

0000 

F 

L22 


LOR 

6,2V$AP 

0U0296 

0 1A 7 

6F26 





ML V 

6,40 

000297 

01A6 

6F40 

F 6 5 6 




bTK 

6,0 + 4 

000298 





# 



TEMP := 40 * 2V0AF; 

0U0299 


01 AA 



L23 


LUg 

$ 

00030U 

0 1AA 

OFOO 

0000 

X 

N10 


NUF 

<BUFFI 

000301 

0 1 AC 

6840 

FFF6 




LOR 

6 , N 1 0+ 1 

000302 

01A6 

6A40 

F 655 




ADO 

6,0 + 4 

000303 

OibO 

FBCO 

F 654 




LAb 

7,0+3 

000304 

0 ib2 

6F07 





S Ik 

6, SB 7 

000303 

Oib3 

OFOO 

0007 

X 

Nil 


NUF 

<IUWURO+7 

000306 

Oib3 

C840 

FFF'L 




LOK 

4 , N 1 1 + 1 

000307 

0167 

CF40 

F 646 




bTK 

4,0 + 6 

000306 





* 



IULO (bUFFLRl feTLMFfe,RLAO feOfe, NUMBER OF COLUMNS); 

000d09 

0169 

0840 

0000 

F 



LpR 

5,NUMBER 

000310 

0166 

OF 40 

F64b 




b I R 

5,0+7 

0003 11 

OibO 

03C0 

0000 

F 



LNJ 

3 , J IL 

000312 

0 lbl- 

03C0 

0000 

F 



LNJ 

5 , JbL 

000313 





# 



CHECK STATUS FOR ERKORb? 




PAGE i04 


TITLE CKMS3**RtV 0**CARDRtADER / PUNCH TV (SAF) 


0003 1 A 





* 

» 

>END«; 


000313 





** 

80 COLUMN 

MARK 

sense; 

000316 


OKI 



L21 

LQU 


$ 

000317 





* 

*IF» • 

BITS* @2*11@ POESDO CARO STATUS *EQi *HEX* 12 ) 

000316 





# 

•THEN* 


000319 





* 

< 

'BEGIN* 

000320 

OKI 

E2C0 

0000 

P 


LLH 


6 * PUE500 

000321 

01C3 

6055 




SCR 


6*5 

000322 

01C4 

604E 




bOK 


6*14 

000323 

01C3 

6002 




CMV 


6*2 

000324 

01 C 6 

0981 

0046 



BNE 


L24 

000323 





* 



•INTEGER* OATA RIGHT BYTE? 

000326 





** 

BLANK STRODE / 

OAT A OR OATA / BLANK Si ROBE 

000327 





* 



•IF* * BIT S• @8*0© BUFFtRi@Q@ Ku» •HEX 1 (20) 

000326 





* 



•then* 

000329 





* 



OATA RIGHT BYTE *= FALSt 

000330 

01C6 

C840 

0000 

P 


LOR 


4,BUFFI 

000331 

OICa 

C2D4 




LLH 


4*=$k4 

000332 

01Ct> 

4020 




CMV 


4*32 

000333 

01CC 

0984 




BNE 


>L2 5 

00033*+ 





* 



•ELSt* 

000333 

01C0 

8740 

F E36 



CL 


04-4 

000336 

0 1 CF 

OF 84 




6 


>L26 

000337 


0100 



L25 

too 


$ 

000336 





* 



OATA RIGHT BYTE *= TRUE* 

000339 

0100 

6C01 




LOV 


6*1 

000340 

0101 

EF40 

F E32 



ST K 


6*0 + 4 

000.341 


0103 



L26 

too 


$ 

000342 


0103 



127 

too 


% 

000343 





* 



•FOR* l!?0 * STtP • 1 ’UNTIL* 39 

000344 

0103 

8 740 

FE20 



CL 


0+1 

000343 





* 



•00* 

00034o 





# 



•BEGIN* 

000347 

0105 

E840 

FE26 


L26 

LOR 


6 *D +1 

00034b 

0107 

6E09 




AOV 


6,-39 

000349 

0108 

6A35 




602 


6 , >L24 

000330 





* 



•INTEGER* TEMP* 

000331 





*# 

PtLtTt BLANKS 

ANO COMPRtSS OATA; 

00035c 





* 



•IF* OATA RIGHT BY 1E »tvj* TRUE 

000353 





* 



•THEN* 

000354 





* 



•BEGIN* 

000353 

0109 

E840 

FE 2 A 



LDk 


6,0 + 4 

000356 

0106 

6001 




CMv 


6*1 

000357 

01DC 

0997 




ONE 


>L30 

000356 

0100 

C840 

FE23 



LOR 


4,0+1 

000359 

010F 

4001 




SOL 


4*1 

000360 





* 



TEMP ;= ’BITS* @6,0© BUFFER @1*2© * 2565 

000361 

0 1 to 

9854 




LOR 


i*=$R4 

000362 

OKI 

0810 

0000 

X 


LOR 


5 *<BUFF 1 #$RI 

000363 

01E3 

5006 




SOL 


5*8 

000364 

01E4 

OF 40 

FE20 



STR 


5,0 + 5 

000365 





# 



BUFFER© I@;-TEMP* Ui^lON* • BITS* @8 ,U@BUFFER@1*2 + 1@ 

000366 





# 



•ENO* 

000367 

01 E 6 

A840 

FE1A 



LOR 


2 , 0 +i 

00036b 

01 E 6 

2001 




SOL 


2*1 

000369 

0K9 

2 tO 1 




AOv 


2*1 

000370 

OKA 

F 820 

0000 

A 


LOR 


7*<BUFFl.$R2 

000371 

0 1 EC 

F2Q7 




LLH 


7,=$R7 

000372 

OlEO 

04 57 




OR 


3,=SR7 

000373 

OlEE 

6840 

Ft 12 



LOR 


3*0+1 

000374 

0 1 FO 

OF 30 

0000 

X 


STR 


3 *<BUFF 1 # 3>K3 

000373 





* 



* ElSE• 

00037c 





* 



•BtGIN* 

000377 

0IF2 

0F96 




6 


>L31 

000376 

0 K 3 

E840 

FEQO 


L30 

LOR 


6 , 0+1 

000379 

01F5 

6001 




SOL 


6,1 

OOO 48 O 





* 



TEMP ; = * Bi TS* @ 8 * 8 © BUFFER @1*2© *256*, 

000381 

0 1 F 6 

9856 




LOR 


1*=SR6 

000382 

01 F7 

C810 

0000 

A 


LOR 


4,<BUF F1 * $R1 

000383 

0 1F 9 

C570 

FFOO 



ANO 


4, = 2* FF30* 

000384 

OlFb 

CF 40 

F10 9 



STR 


4,0+5 

000383 





# 



BUFFER©!©;-TtMP*OHlON*•BITS*@ 8 *8©B0FFER@1*2+1© 

000386 

01 F 0 

0840 

FE03 



LOR 


5*0+1 

000387 

01FF 

5001 




SOL 


3,1 

000388 

0200 

3E01 




AOV 


5,1 

000389 

0201 

A855 




LOR 


2*=SR3 

000390 

0202 

F 820 

0000 

A 


LOR 


7,<bOF Fi•$R2 

000391 

0204 

7048 




SOR 


7*8 

00039c 

0203 

C457 




OR 


4 , = S>R 7 

000393 

0206 

6840 

FDFA 



LDR 


3 * 0+ 1 

000394 

0208 

CF 30 

0000 

A 


STR 


4 * <BUFF 1 • $R3 

000393 





# 



•eno*; 

000396 





* 



•tNO*; (OF FOR LOOP) 

000397 

020 A 

8 ACO 

F0F6 


L31 

INC 


0+1 

000396 

020C 

0FC9 




6 


>L28' 

000399 





* 

»tNO»; 

(OF IF STATEMENT) 

000400 





** i 

COMPARE ASCII VALUES? 

000401 


0200 



L24 

tou 


3> 

000402 

0200 

6 740 

F OF 3 


L32 

CL 


0+1 

000403 





* 


'FOR* 

11=0 ’STEP* I * UNT1L• 39 *00* 

000404 





* 


' BtGIN* 

000403 

02 OF 

t840 

F OF 1 


L33 

LOR 


6 * 0+1 

000406 

0211 

6t09 




AOV 


6,-39 

000407 

0212 

6 AO 1 

0047 



6 G 2 


6*L34 

000406 





* 



•INTEGER* TEMP BUFFER*TEMP CHaR*COlUMN; 

000409 





* 



* IF• BUFFER @I@ *NE» CHAR @I@ 

000*+ 1 0 





* 



•THEN* 

00041i 





# 



* BEGIN• 

000412 

0214 

9840 

FOEC 



LpR 


1 * 0+1 

000413 

0216 

E810 

0000 

A 


LOR 


6 *<BUFF W$R1 

000414 

0218 

E910 

0000 

A 


CMR 


6 * <CHAK•$R1 

000415 

02 1 A 

093C 




6 t 


>L35 

000416 





* 



TEMP BUFFER ;= »B 11 S* @ 8 , 6 © BUFFtR@l@; 

000417 

0216 

6046 




SOR 


6*8 

00041b 

02 1 C 

EF40 

FOE 7 



STR 


6*0 + 4 

000419 





* 



TEMP CHAR K »BIIS* © 6 * 6 © CHAR©1@; 

000420 

02 K 

C610 

0000 

A 


LOR 


4 , <CHAR•$R1 

000421 

0 c 20 

4048 




SOR 


4,8 

000422 

0221 

CF40 

F0t3 



ST R 


4*0+5 

000423 

0223 

KOI 




AOV 


1*1 

000424 

0224 

1001 




SOL 


1*1 

000423 

0225 

KFF 




AOv 


1,-1 

000426 

0226 

02C0 

0000 

P 


LLH 


3,PUES00 





PAGE 105 



11 ILL 

CRMS3, 
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000h2 7 

022 b 

5035 




SCR 

5 9 5 

00042c 

0229 

304F 




SUR 

5,15 

000429 

022 a 

5L0 1 




ADv 

3,1 r . , 

000430 





X 


COLUMN ;=(( 1 + 1) *2-1) X ( *oI IS* §1 ,126>PUtSDOCARDSTATUS+l) 

000431 

022 b 

9B55 




MUL 

1* = $R5 

00043*: 

G22C 

9 P 40 

P 009 



51 R 

1,04-6 

000433 

022L 

PBCO 

F0D8 



LA b 

7,0 + 7 

000434 

0230 

tF 07 




SIR 

6 , $B7 

000433 

0231 

CP 40 

P 006 



SIR 

4,0 + 8 

00043c 





* 


COMPARE ASU1 (TLMP bUP FEK , T LMP CHAK ,C 0 LUMN) , 

000437 

0233 

9P40 

F 005 



SIR 

1,0 + 9 

00043b 

0233 

03C0 

0000 

P 


LNj 

5,JCA 

000439 





* 


TLMP BUFFLR J= •DilS* eo,OG BUFFERS* 

00044U 

0237 

9840 

P0C9 



LOR 

1 , 0+1 

000441 

0239 

L810 

0000 

X 


LOR 

6 ,<BUP F1•SR 1 

000442 

02 3d 

1206 




LLH 

6 ,=$K 6 

000443 

023L 

LP 40 

FDC7 



ST k 

6,0 + 4 

000444 





* 


T LMP CHAR ; = * BI IS 1 fe>O*0e CHAR61&5 

000443 

023L 

C810 

0000 

X 


LOK 

4 , <CHAK•SR1 

000446 

0240 

C204 




LLH 

4,=SR4 

000447 

0241 

CP 40 

P0C3 



STK 

4*0 + 5 

000446 





* 


COLUMN :=((1+1)*2)*(*BIiS* @I, 12 @PUtSDQ CARO SlATUS+1) 

000449 

0243 

1 £01 




AOv 

1,1 

000430 

0244 

02CG 

0000 

P 


LLH 

5,PULSOD 

000431 

024o 

5055 




SCR 

5,5 

000432 

0247 

504P 




SDK 

5,15 

000433 

024b 

3L0 1 




AOV 

5,1 

U00434 

0249 

9B35 




MUL 

1 , = $R5 

000433 

02 4 A 

1001 




SOL 

1,1 

000456 

024b 

9P40 

POBA 



STR 

1,0 + 6 

000457 

024b 

PBCO 

F0B9 



LAb 

7,0+ l 

00043d 

024P 

LP 07 




STK 

6 ,SO 7 

000459 

0230 

CP40 

FDB7 



STR 

4,0+8 

000460 





X 


COMPARE ASCII (TEMF BUFPERiTemP CHAK,COLUMN); 

000461 

0232 

9P40 

F0B6 



SIR 

1,0 + 9 

000462 

0254 

03C0 

0000 

P 


LNj 

5 * JCA 

000463 





X 


* L N 0 1 ; 

000464 





X 


lno* ; 

000463 

0256 

8AC0 

POAA 


L35 

INC 

0+1 

00046C 

023d 

OP 8 1 

PFB6 



b 

L33 

000467 


02 5 A 



L34 

LOU 

S 

00046b 





X 

LRKOK LABLL ; = * LIT LRAL • (N3>5 

000469 

02 5 A 

L8 70 

4L33 



LOK 

6, = 20019 

000470 

025L 

LP 40 

0000 

P 


STK 

6,LABLL! 

000471 





X 

STATUS SHOULD BE := *HEX» (8080); 

000474 

023L 

C870 

8080 



LOk 

4,=-32640 

00047b 

02c0 

CP40 

0000 

P 


STK 

4 , STA1 US 

000474 

0262 

PBCO 

F0A1 



LAb 

t ,0 + 4 

000475 

0264 

9BC0 

0000 

P 


LAd 

1,BUFF 1 

00047c 

026c 

9F87 




ST 0 

1 , $ b 7 

000477 

026 7 

OPOO 

0007 

X 

N12 

NOP 

< 10W0K0 + 7 

00047b 

0269 

0840 

FFPL 



LOR 

5 ,N12 + 1 

000479 

026b 

DP 40 

F 099 



STR 

5,0 + 5 

000480 





X 


10L0 (BUFFER @Oe,KEAD , NUMBER OF COLUMNS)5 

000481 

02CU 

P 840 

0000 

p 


LOR 

7,NUMBER 

000482 

026F 

PF40 

F096 



SIR 

7,0 + 6 

00048b 

0271 

O3C0 

0000 

p 


LNJ 

5 , J 1L 

000484 





X 


•IF* 10 *NE* * HEX • (2008) 

000485 





X 


•THEN* 

000486 





X 


•BEGIN* 

000487 

0273 

1840 

0000 

p 


LOR 

6,10 

000488 

0275 

L970 

2008 



CMR 

6, = 8200 

000489 

02 7 7 

090C 




bt 

>L36 

000490 





X 


STATUS SHOULD BL , HtX» (90o0)? 

000491 

027 b 

C870 

9000 



LOK 

4, = -28672 

000492 

02 7A 

CP40 

0000 

p 


STR 

4,SIATUS 

000493 





X 


ASCII BIT ;= ’BITS* £>1,120 STATUS WAS? 

000494 





X 


•END* 

000493 

02 7 C 

02 CO 

0000 

p 


LLH 

5 , b T A T W A 

000496 

0 2 71 

5055 




SCR 

5,5 

000497 

0 2 7 F 

304F 




SOK 

5,15 

00049b 

0280 

OP 40 

F081 



STK 

5,0 + 2 

000499 





X 


ELSL * 

000300 

0282 

OP 87 




b 

> L 3 7 

000301 


0283 



L36 

LUU 

S 

000302 





X 


ASCII BIT ;= •BITS* @1*70 STATUS WAS; 

000303 

0283 

L840 

0000 

p 


LOR 

6 , S1 A T W A 

000304 

0283 

L20C 




LLH 

6 , = $K6 

000505 

028c 

6047 




SOK 

6,7 

000306 

0287 

LP 40 

F07A 



STK 

6 , D + 2 

000307 

0289 

03C0 

0000 

p 

L37 

LNj 

5 , JSE 

000308 





X 

CHECK STATUS PJK ERRORS ; 

000309 





X 


•IF* ASCII BIT • EQ * 0 

000510 





X 


•THEN* 

000511 

028b 

L840 

F076 



LOK 

6,0 + 2 

000312 

028D 

6988 




bNt.2 6,>L38 

000513 





X 


PUT NEW ILXT ("ILLEGAL ASCII NuT READS")* 

000514 

02dt 

PBCO 

F075 



LAb 

7 *0 + 4 

000313 

0290 

9BC0 

F0A3 



LAb 

1 * T 39 

000316 

0292 

9Fb7 




STd 

A, SB 7 

000317 

0293 

03C0 

0000 

p 


LNj 

5 , VK.PNT 

00031b 


0295 



L38 

LOO 

S 

000319 





X 

STATUS SHOULD sE := »HtX» (bOQO); 

000520 

0293 

L870 

8000 



LOK 

6,=-32768 

000521 

0297 

LF40 

0000 

p 


STK 

6,STATUS 

000322 





X 

LRROK LABLL ; = * LITLKAL * (N4)5 

000323 





** READ 

CAKj 

in binary mode; 

000324 

0299 

C870 

4L34 



LOR 

4, = 20020 

000 c 2 3 

029b 

CP40 

0000 

p 


STK 

4 , LABEL 1 

000526 

0290 

PBCO 

F 066 



LAb 

7,0 + 4 

000327 

02 9 F 

9BC0 

0000 

p 


LAb 

1,b|NARY 

00032b 

02 A1 

9F87 




STB 

1 , SB7 

000529 





X 


INOUT (INITIALIZE,OUTPUT CON 1RUL 0Oe) » 

000530 

02A 2 

ABCO 

0000 

p 


LAb 

2,1DWORD 

000531 

O 2 A 4 

AFCO 

F060 



ST b 

2,0 + 5 

000332 

02Ac 

03C0 

0000 

p 


LNJ 

5, JIO 

000333 





X 


•IF* 10 »LU« •HLX * (2008) 

000334 





X 


•THEN* 

000333 

02 Ad 

L840 

0000 

p 


LOK 

6,10 

000336 

02 AA 

L970 

2008 



CMk 

6, = 8200 

000537 

02 AC 

098F 




bnl 

>L40 

000538 

02 AO 

FBCO 

F056 



LAb 

7,0 + 4 

000539 

02 AF 

9BC0 

0000 

p 


LAb 

1,BINARY 





7 IT'Lt 

CRMS3, 

»KOV G» 

»CAKDKOADOK 

/ PUNCH TV (SAF) PAGO 106 

000340 

04dl 

9F87 




5Tb 1*4B7 

G00541 





* 

INGUT (BINARY MOUEtOUTFUl CONFIGURATION £0@) 

000542* 





* 

* ELSt * 

000343 

C4B4 

OF 00 

OOOB 

X 

N13 

NOP <10W0RD+11 

000344 

04i34 

C84G 

FFFO 



LDR 4,N13+1 

000343 

04b6 

CF40 

F 040 



57 R 4*0+5 

000346 

04bb 

O3C0 

0000 

P 


LNj 5 * J 10 

000347 

04bA 

OF 80 




b >L41 

00034b 

04bd 

FbCO 

FD48 


L40 

OAb 7*0+4 

000349 

04 bO 

9BC0 

0000 

P 


LAb 1 * 50TTOH 

000330 

04bF 

9F87 




5Tb 1 * 4B7 

000351 

02C0 

OF 00 

0005 

X 

N14 

NOP <IOWORO+5 

000354 

04C4 

0840 

FFFO 



LOR 6 *N14+1 

000353 

04C4 

0F40 

F 040 



5TR 6*0+5 

000554 

04C.6 

D3CQ 

0000 

P 


LNj 5,JIG 

000555 





* 

INOUT (SOT TO HOLLERITH,OUTPUT TA5k @0@> 5 

000356 

04Cb 

FbCO 

F03b 


041 

LAb 7*0+4 

000357 

04CA 

9BC0 

0000 

P 


LAd 1 * bUF F1 

000356 

04CC 

9F87 




5Tb 1,4b 7 

000359 

04CD 

6C54 




LOV 6,84 

000560 

04C0 

OF 40 

F 036 



5TR 6,0+5 

000361 

0400 

4C56 




LOV 4,86 

000564 

0201 

CF 40 

F034 



5TK 4,0+6 

000563 





* 

FILL BUFFER (BUFFER 1,86,'HEX•(FFFF))? 

000564 





** CHOCK 

TO 50b IF MURE THEN A CARO OF DATA IS TRANSFEREE; 

000563 

0403 

3CFF 




LDv 5,-1 

000366 

0404 

DF 40 

F 034 



ST k 5,0 + 7 

000367 

0406 

D3C0 

0000 

P 


ONj 5,JFb 

0UO56b 

040b 

FBCO 

FD2B 



LAb 7,0+4 

000569 

040A 

9BC0 

0000 

P 


LAb 1,BUFFI 

000570 

04DC 

9F87 




5Tb i,$b7 

00037i 

0400 

OF 00 

0007 

X 

N15 

NOP <1OWORP + 7 

000574 

04 OF 

0840 

FFFO 



LOR 6 , N1 5 + 1 

000573 

04b 1 

OF 40 

F 043 



57K 6,0+5 

000374 





* 

I OLD (bUFFOKl &0@, ROAo @0@,172); 

000375 

04 03 

C870 

OOAC 



LOR 4,=174 

000376 

0405 

CF40 

F 020 



SIR 4,0+6 

000377 

0407 

D3C0 

0000 

p 


ONJ 3 , J IL 

00057b 





* 

•IF* bUFF EK@NUMBER OF COLUMNS »NE* *HOX» (FFFF) 

000379 





* 

• THEN * 

000580 





# 

1 bOGiN• 

000381 

0409 

9840 

0000 

p 


LOR l,NUMBt« 

00038*? 

040b 

0810 

0000 

X 


LOR 6,<bUF F1 . $R1 

000383 

0400 

6DFF 




CMV 6,-1 

000584 

0400 

0900 




bt >L44 

000585 





* 

LAbOL 4;= •Oil ORAL * (MW) ; 

000386 

040F 

C870 

4057 



LOR 4,=19799 

000587 

04 Fi 

CF40 

0000 

p 


SIR 4,LA6LL2 

00058b 

04F3 

D3C0 

0000 

p 


ONJ 3 , JRO 

000589 





* 

REPORT ERROR? 

000390 

04F 3 

FbCO 

FOOO 



OAb 7,0+4 

000591 

04 F 7 

9BC0 

F049 



LAb 1 ♦ T 4 3 

000394 

04F 9 

9F87 




5Tb 1 , 5b7 

000593 

04 FA 

D3CQ 

0000 

p 


LNj 5 , VKPT 

000394 





it 

PUT TEXT (", XFOR TO MANY4”) , 

000595 





it 

•END* ; 

000596 





it it RANGt 

CORRECT 

000597 

04 FC 

FbCO 

F 007 


L42 

LAb 7,0+4 

00059b 

G4F0 

9BC0 

F 004 



OAb 1,0+3 

000599 

0300 

9F87 




STo 1 , 4 B 7 

000600 





it 

INUUI(RANGE, INPUT RANGE @0«j) ? 

000601 

0301 

OF 00 

0009 

X 

N16 

NOP <IOWORD+9 

000604 

0303 

0840 

FFFO 



00k 6 , N16 + 1 

000603 

0303 

0F40 

F CF F 



5TR 6,0+5 

000604 

030 7 

U3C0 

0000 

p 


LNJ 5 , J 10 

000603 





it 

•IF* RANGE * NO * 172-(NUMBtR UF COLUMNS) *2 

000b06 





it 

•THEN* 

000607 





it 

•BEGIN* 

00060b 

0309 

0840 

0000 

p 


LOR 6,NUMBER 

000609 

030b 

6001 




SOL 6,1 

000610 

030C 

0470 

OOAC 



50b 6 , = 1 7 4 

000611 

0300 

8256 




NOG = 4R6 

000614 

030F 

0940 

FCF 3 



CMK 6,0+3 

000613 

0311 

0901 

0014 



bO 044 

000614 





it 

LAbOL 4J5 * LITtRAL * (Kt); 

000615 

0313 

0870 

5445 



LOK 6,=21061 

000616 

0315 

OF 40 

0000 

p 


ST K 6 , LAbOL4 

000617 

031 7 

0840 

0000 

p 


LOk 4K5,50TI0A 

00061b 

0319 

C840 

FCEV 



LOR 4K4,0+3 

000619 





it 

LOAD R4 R5 (RANGE, CLOAK); 

000620 

031b 

D3CQ 

0000 

p 


LNj 3,JRO 

000621 





it 

REPORT ERROR; 

000624 

03 1D 

FBCO 

FC06 



LAb 7,0+4 

000623 

03 1F 

9BC0 

FD2A 



LAb 1,T45 

000624 

0321 

9F8 7 




5Tb 1,4B7 

000623 

0344 

03C0 

0000 

p 


LNj 3,VKPT 

000626 





it 

PUT TOXT (", RANGE WRQNG4"); 

000627 





it 

• ono •; 

00062b 


0324 



L44 

EUU 4 

000629 





it 

•IF* * bIT5 * @1.15@ STATUS WAB ’N0» 1 »ANd* 

000630 

0344 

0840 

0000 

p 


LDK 6,5TATwA 

000631 

0326 

6807 




BOO 6,>L46 

000634 





it 

•BITS* @1,14(5* STATUS WAS *N0* 1 

000633 





it 

•THEN* 

000634 





it 

•BOGIN* 

000635 

032 7 

82C0 

0000 

p 


Lb STATWA,2*4000* 


0329 

4000 





000636 

032 A 

0503 




Bbl >L46 

000637 

032b 

03C0 

0000 

p 


LNj 3,JSO 

000638 





it 

,CHOCK STATUS FOR ERRORS; 

000639 





it 

*ENO*; 

00064U 


0320 



L46 

too 4 

000o4i 





it 

* IF* 10 * Nt * * HEX• (4008) 

000644 





it 

•THEN* 

000643 





it 

•BEGIN* 

000644 





* THY AGAIN? 

000645 

0320 

0840 

0000 

p 


LDK 6,10 

000646 

032F 

0970 

2008 



CMK 6,=8400 

000647 

0331 

0920 




BO >047 

000648 


0334 



L48 

EGU 4 

000649 





it 

ASK NOW QUESTION ("BECUND CAKu OFFSET STACKED*”)? 

000650 

0334 

FBCO 

FC01 



LAb 7,D♦4 

000651 

0334 

9BC0 

FD1D 



LAb 1, T 49 



0000 

fe-fc'L 
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000o52 

0336 

9P87 




5Tb 


1 * 3>B 7 

000653 

033 7 

03C0 

0000 

P 


LNj 


5 * VKANQ 

000654 





* 



1 ?= * HEX• (5900)5 

000655 

0339 

E870 

590D 



LOR 


6*=22797 

000656 

033b 

EF40 

FCC5 



SIR 


6*0+ 1 

00065/ 





* 



GET CHAR ( 1 ) ; 

00065b 

0330 

PBCO 

FCC6 



LAd 


7*0+4 

000659 

033F 

9BC0 

PCC1 



LAd 


1*0+1 

000660 

0341 

9 P'8 7 




51b 


1 *Sb7 

000661 

0342 

D3C0 

0000 

P 


LNj 


5 * VKGC 

000662 





* 



•IP* I *\E* •LITERAL* (Y) 

000663 





* 



•THEN* 

000664 





# 



•BEGIN* 

000665 

0344 

E840 

FCBC 



LOR 


6*0+1 

000666 

0346 

6D59 




CM v 


6*89 

000667 

034 7 

0910 




bt 


>L50 

000666 





* 



•IF* I •NE• 'LlTtRAL* (N) 

000669 





* 



•T REN• 

000670 





* 



•GO 10* TRY *GAiN* 

000671 

0348 

604E 




CMv 


6*78 

00067 c 

0349 

09E9 




6Nt 


>L48 

000673 





# 



LAbEL 2 := ’LITERAL* (05)5 

000674 

034A 

C870 

4F53 



LOR 


4,=20307 

000675 

034C 

CF 4 0 

0000 

P 


SIR 


4 * LAbEL2 

000676 

034E 

03C0 

0000 

P 


LNj 


5 * JRt 

000677 





* 



REPORT ERROR? 

000676 

0350 

PbCO 

FCB3 



LAb 


7*0 + 4 

000o79 

0352 

9BC0 

PDOE 



LAb 


1*152 

000680 

0354 

9FB7 




5 Tb 


1 *5b 7 

000681 

0355 

03C0 

0000 

P 


LNj 


5 *VKPT 

00068c 





* 



PU1 TEXT ("* ERROR EJECIS" 

000683 





* 



» ENO *; 

000684 

035 7 

PbCO 

PC AC 


L50 

LAb 


7*0 + 4 

000685 

0359 

9bC0 

FDOF 



LAd 


1 * T 53 

000686 

03 5 b 

9 P 8 7 




5Tb 


1 *$b7 

000687 

0 3 5 C 

O3C0 

0000 

P 


LNj 


5 * VKPNT 

000686 





* 



POT NEW I EX T ("STOP* RONOUTJC LI 

000689 





# 

•END*; 


000690 





* 

ENO JP 

LETTER N: 

000691 





# 

•END*; 


(OP PROCEDORE) 

00069c 





* 

•ENO*; 


(OP StGviENl) 

000693 





* 

•FINISH* 


000o94 

G35t 

83C8 

FCA1 


L4 7 

JMP 


*0 

000695 


0360 



LI 

lQU 


$ 

000o96 

0360 

83C0 

0000 

P 


JMP 


ZK5EX 

000697 






AL JC 


ZK$EX 

000696 






CTRL 

LINK 

ZKSEX 

000699 






XL JC 


2HRTC1 

000700 






XLuC 


ZHK1CL 

000701 






XLOC 


ZHR1CC 

00070c 






XLOC 


ZVSAP 

000703 






URL 

L I NK 

ZVSAP 

000704 






XLOC 


VKP1 

000705 






XLOC 


VKPNT 

000706 






XLOC 


VKANQ. 

000707 






XLOC 


VKGC 

000708 






XLuC 


10 

000 709 






XLOC 


5 TA 1WA 

000710 






XLOC 


STATUS 

00071 1 






XLOC 


HERTZ 

00071c 






XLOC 


PUE500 

000713 






XLOC 


SET I OH 

000714 






XLOC 


SETTOA 

000 n 5 






XLOC 


A5EJCT 

000716 






XLoC 


BINARY 

000717 






ALOC 


READS! 

000 lib 






XLOC 


NUMBER 

000719 






XLOC 


LAbEL1 

000720 






XLoC 


LAbLL2 

000721 






XLOC 


CK5EM 

000722 






XLoC 


L215EM 

000723 






XLoC 


5REG 

000724 






XLOC 


BUPP 1 

0007 2 5 






XLOC 


CHAR 

000726 






XLoC 


10WUR0 

00072 7 






XLoC 


JRE 

000726 






XLOC 


JIG 

000729 






XLOC 


OIL 

000730 






XLOC 


JPN 

000731 






XLuC 


JC A 

000732 






XLOC 


JWR 

000733 






XLuC 


JSt 

000/34 






XLOC 


JC5 

000735 






XLOC 


JFb 

000736 0362 

huu rnijfaT 

0072 




ENO 


ZVKJLN,ZVKJLN 




1 I TlE 

CRM53,* REV 

0* 

,CAK0R6AP6K 

/ PUNCH TV, (SAF) PAGE 108 

E ZVnJLP 

• GIST 





05/19/78 

1429•5K M 05/19/78 1422,7 40329900u0 

000001 







T1166 

ZVKJGP * * kEV 00» 

OUOUO 4 


0090 





XOtF 

KJGP 

000O03 


0096 





XDEF 

ZVKJGP M 

000004 


0008 




2KC0M 

COMM 

8 4 * 

0 0 0 0 0 ‘3 

0000 

0000 




0 

R65V 

9»0 I 

000006 

0009 

0019 




1 8 

DC 

23 \ jp 

000u07 

OOOA 

3055 

4643 

4820 



16X1 

•PUNCH 100 CARD T65» ^ 


0000 

3130 

3020 

4341 







5244 

2034 

4533 





000008 

0013 

5420 

4445 

434b 



T6X1 

•T DECK, * * 


0016 

2400 







000009 

0017 

OOOF 




T 13 

DC 

13 

000010 

0018 

5241 

4644 

4F40 



16X1 

♦RANDOM PUNCHES** 


OOld 

2050 

3546 

4348 







4353 

2400 






000011 

0020 

oooc 




T18 

DC 

12 

000012 

0021 

434F 

3059 

2041 



I ExT 

•COPY A CARD** 


0024 

2043 

4152 

4424 





000013 

002 / 

0016 




T24 

DC 

22 

000014 

0026 

5245 

4144 

4352 



16X1 

•HEADER CHANN66 NUM* 


002 d 

2043 

4641 

4646 







454C 

2046 

5340 





000013 

0031 

4245 

5224 




16XT 

* B6R* * 

000016 

0033 

0000 




T 32 

DC 

13 

000017 

0034 

5245 

4144 

3920 



T6XT 

•READY READERS* 


003 / 

5245 

4144 

4552 







2400 







000016 

003b 

oooe 




135 

DC 

14 

000019 

003C 

5255 

464F 

5554 



TEXT 

»RUNOUT 9 START** 


003F 

2C20 

3354 

4132 







3424 







000020 

0043 

0030 




137 

DC 

48 

000021 

0044 

4546 

5443 

5220 



16XT 

'ENTER 3 HEX VA6U65* 


0047 

3320 

4845 

5820 







5641 

4C55 

4553 





000022 

0040 

2F43 

4F4C 

2C20 



16xT 

»/C06* RETURN A60NE ENDS INPu* 


0050 

5245 

5455 

3246 







2041 

4C4F 

464 5 







2043 

4644 

3320 







494E 

3055 






000023 

005b 

3424 





16x1 

*1** 

000024 

003C 

0001 




141 

DC 

1 

000023 

0050 

2400 





16X1 

•*• 

00002o 

0056 

0012 




T44 

DC 

18 

000027 

005F 

4041 

5849 

4033 



16X1 

•MAXIMUM CARDS ARE** 


0062 

4020 

4341 

3244 







5320 

4132 

4324 





00002b 

006b 

0019 




145 

DC 

23 

000029 

0069 

5245 

4144 

3920 



16X1 

•READY PUNCH, TOTAL* 


006C 

5055 

4643 

482C 







2054 

4F54 

414C 





000030 

0072 

2043 

4152 

4453 



T6X1 

* CARDS** 


0075 

2400 







000O31 

0076 

0009 




T46 

DC 

9 

000032 

00 7/ 

3055 

4643 

4843 



T 6xT 

• PUNCHED ** 


007A 

4420 

2400 





\ 

000033 

007C 

001b 




149 

DC 

2 7 

000034 

UO70 

4552 

524F 

5220 



TEXT 

* ERROR CARDS OFFSET* v 4 


0080 

4341 

5244 

5320 







4F46 

4653 

4554 





000033 

0086 

2053 

5441 

434b 



16x1 

• STACKED** 


0089 

4344 

2400 






000036 

006b 

oooe 




152 

DC 

14 

000037 

008C 

2C20 

4552 

32 4 F 



16x1 

* * ERROR EJECT** 


00 6 F 

3220 

434A 

4543 







3424 







000038 

0093 

0007 




134 

DC 

/ 

000039 

0094 

5645 

5249 

4639 



TEXT 

* verify** 


0097 

2400 







000040 


0096 




ZVKJGP 

6QU 

* 

000041 

0098 

8F00 

0001 


K 


SAVE 

<2KC0M+1*2*0011* 


009 A 

0011 







00004*: 






* 

•BEGIN* 


000O43 

009b 

0F81 

0210 




b 

61 

000044 






* 

• 1NItGbK• TEMP; 

000043 

0090 

DFCO 

FF62 



KJGP 

51b 

5 , D 

000046 






* 

•IF* 10 •60 * *rlEX» (2006) 

00004 / 






* 

•1H6N* 


000046 






* 

•BEGIN 

• 

000049 

009F 

t840 

0000 


P 


6Dk 

6,10 

000050 

00A1 

6970 

2008 




CMR 

6,=8200 

000051 

00A3 

0966 





BN6 

>63 

000052 






* 


•IF* ‘BITS* 6*1,12© PUESDU CARb STATUS , EU» 1 

000053 






* 


•THEN* 

000054 






* 


* GO TO* 661 TER R 

000053 






* 


»E6S6• 

000056 

00A4 

82C0 

0000 


P 


6b 

PUESDU,2*1000* 


00A6 

1000 







00005/ 

00 A 7 

0501 

0000 


P 


Bbl 

OtTR 

000056 






* 


* GO TO* 6ETT6R V> 

000059 

0OA9 

83C0 

0000 


P 


JMP 

66 TV 

000060 






# 

• END•5 


000061 


OOAb 




63 

6QU 

* 

000062 






* 

BAbtB 

1 ;= *611ERAG• (Pi); 

000063 

OOAb 

6870 

3031 




60K 

6, = 20529 

000064 

OOAO 

Er40 

0000 


P 


51K 

6 , GAbEG1 

000063 

OOAF 

F6C0 

F F 52 




6 Ab 

7 ,D + 2 

000066 

oobi 

9bC0 

0000 


P 


6Ab 

1,SET 1 OH 

00006/ 

00B3 

9F87 





5Tb 

1 , *B7 

000066 






* 

1N0UI 

(SET TO ROGGERITH, OUTPUT TASK ©0 ©)5 

000069 

00B4 

OFOO 

0003 


X 

m 

NOP 

<1OWORD + 3 

000070 

00b6 

C840 

FFF6 




60k 

4 , N1 + 1 

000071 

OObd 

CF40 

FF4A 




STR 

4,0+3 

000072 

OObA 

D3C0 

0000 


P 


6NJ 

3, JiO 

000073 






* 

STATUS 

SHOOED BE ;= •HEX * (8000)? 

000074 

ODBC 

6870 

8000 




6DK 

6,=-32766 

OOOU75 

OOBE 

EF40 

0000 


P 


STR 

6 ,STATUS £ 

000076 

OOCO 

FBCO 

FF41 




6Ab 

7, D+2 

000077 

00C2 

9BC0 

0000 


p 


6Ab 

1,BUFFI ■ 

000076 

00C4 

9F87 





Sib 

1 , $b 7 

000079 

OOC5 

4C54 





6DV 

4,84 

000080 

00C6 

CF4G 

FF3C 




51 K 

4, D + 3 
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000061 

OOCb 

5C50 




LDv 5*80 

000082 

00C9 

DF40 

FF3A 



SIR 5,D + 4 

000083 





* 

FILL BUFF6K (BJFFLR 1 * 60 *•Ht*' ( FFF)) * 

000084 

OOCb 

F 8 70 

OF FF 



LDk 7,=4095 

0000815 

GOCU 

FF4G 

FF37 



STR 7*0+5 

000088 

OOCF 

D3C0 

0000 

P 


LNJ 5 *JPb 

000087 





* 

RESET RANDOM DATA (CL6ARJ * 

000088 

0001 

FbCO 

FF30 



LAd 7 , D + 2 

000089 

0003 

9BCG 

0000 

P 


LAb 1 * SET TOA 

000090 

0005 

9F6 7 




5Tb 1 , £b7 

000091 

0006 

D3C0 

0000 

P 


LNj 5 * VKRRD 

000O92 





* 

2HRTU ; = o; 

000093 

0006 

8740 

0000 

P 


CL ZHKTCi 

000094 





* 

2 HKTCC ; = o; 

00009b 

OObA 

6 740 

0000 

P 


CL ZHRTCC 

000096 





* 

low address ; = zvdlr; 

000097 





* 

Inpui again; 

000U98 

OOOC 

8840 

0000 

P 


LDk 6 ,ZV£lK 

000099 

OOOt 

LF40 

0000 

P 


SI R 6 *L0WAD3 

000100 


ooto 



67 

tGU $ 

000101 





* 

ASK N6W QUESTION ("PUNCH 100 CARD TtST DECKS")* 

0 U0102 

OOtO 

FbCO 

FF21 



LAb 7 * D♦2 

000103 

0062 

9bC0 

FF26 



LAb 1*18 

000104 

OuL4 

91-87 




ST d I,£b7 

00010 b 

G0L5 

D3CG 

0000 

P 


LNj 5 * VKANU 

000106 





* 

TEMP ; = * H6X * (590D) ; 

000107 

0007 

t870 

590D 



LDK 6,=22797 

COOiOto 

0GL9 

LF 40 

F F1 7 



STK 6 *D+1 

000109 





* 

G6T CHAR (TLMP) ; 

000110 

001.0 

FbCO 

F F 16 



LAd 7,D+2 

000111 

OOLb 

9bC0 

F F1 3 



LAb 1 * D+1 

0001 U 

00 tF 

9F67 




Sib 1•£b7 

000113 

OOPO 

D3C0 

0000 

P 


LNJ 5 * VKGC 

000114 





* 

•IF' TEMP »LQ' *L1TbRAL• (Y) 

00011 b 





* 

'THEN' 

000116 





* 

•6LGIN' 

000117 

00 F2 

L840 

FF06 



LDk 6 * D+1 

000116 

OOF 4 

6D59 




CMV 6,89 

000119 

OOFb 

098b 




BNL >L9 

000120 





* 

typl up punchls ;= •lulkal* iR); 

000121 

0 0 F 6 

4C52 




LDV 4*62 

OOu122 

OOF 7 

CF 40 

0000 

P 


STR 4 * TYPtOF 

000123 





* 

CARDS SP6C1FILD ; = 100? 

000124 

OuF 9 

5C64 




LDv 5,100 

00012 b 

OOFA 

OF 40 

0000 

P 


STK 5*CARDSS 

000126 

OOFC 

0300 

0000 

P 


LNJ 5 * JWK 

000127 





* 

WAIT FUR KLFUKN; 

000126 





* 

'GO TU' punch; 

000129 





* 

' 6ND' 

000130 

OOPt 

OFfai 

0146 



B LiO 

000131 





* 

'LLSL' 

00013*: 


0100 



L9 

tQu $ 

000133 





* 

•IF* TLMP »Nt» 'LITERAL* (N) 

000134 





* 

'THLN' 

00013b 





* 

'GO TO* INPUT AGAIN? 

000136 





* 

TRY again; 

000137 

0100 

6840 

F F 00 



LDk 6 * D+1 

000136 

0102 

6 04 h 




CMv 6,76 

000139 

0103 

09 DO 




bNL >L7 

000140 


0104 



612 

LOU £ 

000141 





* 

ASK NLW UULSTIJN ("RANDOM PUNCHtSS"); 

000142 

0 1U4 

FBCO 

FLFD 



LAd 7 *D+2 

000143 

0106 

9BC0 

FF 10 



LAb 1, T 1 3 

000144 

0108 

9Fb7 




ST b I,$b7 

00014b 

0109 

03C0 

0000 

P 


LNJ 5 * VKANU 

000146 





* 

GLT CHAR (TLMP )? 

000147 

0100 

FBCO 

F 6F 6 



LAb 7,D+2 

000146 

OlOo 

9BC0 

F6F3 



LAd I * D+i 

000149 

0 i OF 

9F8 7 




STb I * SB 7 

0001 bu 

0110 

03C0 

0000 

P 


LNj 5 * VKGC 

00015i 





* 

'IF* TLMP •LU* 'LITERAL* (Y) 

000154 





* 

'THLN* 

000153 





* 

•BLUIN' 

000154 

0112 

6840 

F66t 



LDk 6 * D+1 

000155 

0114 

6059 




CMv 6*69 

000156 

0115 

0966 




BNL >L14 

000157 





* 

1YPL OF PUNCHES ;= 'LITERAL' (R)» 

00015b 





* 

* LNu * 

000159 

0116 

4C52 




LDV 4,62 

000160 

0117 

CF40 

0000 

P 


STK 4,TYPLOF 

000161 





* 

•LLSt• 

000162 





* 

• BEGIN' 

000163 

0119 

0F81 

0115 



b L15 

000164 


0116 



614 

LOU £ 

000165 





* 

'IF* TLMP 'NL' 'LITERAL* (N) 

000166 





* 

'THEN* 

000167 





* 

•GO TO' TRY AGAIN? 

00016b 





# 

NOT Y OR i*; 

000169 

OilD 

6840 

F665 



LDK 6 , l>+ I 

000170 

Olio 

604b 




CMv 6,76 

000171 

0 1 1 L 

09t 6 




bNL >L 12 

000172 


011 F 



H7 

LOu £ 

000173 





* 

LABEL 1 ;= 'LITERAL' (P2); 

000174 

01 IF 

6670 

5032 



LDK 6,=20530 

000175 

0121 

6F40 

0000 

P 


STK 6 * LABEL 1 

000176 

0123 

FbCO 

FLDL 



LAb 7,D+2 

0001 77 

0125 

9BC0 

F6F A 



LAd 1 * T 16 

00017o 

012 7 

9F67 




STb 1 * £B7 

000179 

0126 

03C0 

0000 

P 


LNj 5 * VKANU 

000180 





* 

ASK NLW QUESTION ("COPY A CARj$"); 

000181 





* 

GL1 CHAR (TLMP ); 

000184 

012 A 

FBCO 

F6D7 



LAd 7,D+2 

000183 

012 C 

9BC0 

FLD4 



LAb 1*0+1 

000184 

G12 l 

9 F 6 7 




Sib 1 * £ b 7 

000185 

012 F 

03C0 

0000 

P 


LNj 5,VKGC 

000186 





* 

•IF* TLMP •NL * 'LITERAL' (N) 

000187 

0131 

6840 

F6CF 



LDK 6 *D+1 

00016b 

0133 

6046 




CMv 6,76 

000189 

0134 

0903 




bL >L19 

000190 





* 

'AND* 1LMR 'NL' 'LITERAL* (Y) 

000191 





* 

»1 HEN' 

000192 





# 

•GO TO' NOT Y OR N? 

000193 

0135 

6059 




CMV 6,69 



title: 


CRMS3,*REV G*,CARDREADER / PUNCH TV (SAT) 


PACE a 10 


000194 

0136 

09E9 




bNE 

>L 1 7 

00019b 


0137 



L19 

EQu 

$ 

000196 





* 


•IF' TEMP *£0• 'LITERAL* (Y) 

000197 





* 


♦ 1 HEIM' 

000196 





* 


•BEGIN* 

000199 

0137 

£840 

FEC9 



LDK 

6 * D+ 1 

000200 

0139 

6059 




CMv 

6*89 

000201 

013A 

0981 

00B6 



BNl 

L* 1 

000202 





* 


* IVI EGER' ID 25 

000*03 





* 


ID * := id; 

000*04 

0 13C 

C840 

0000 

P 


EUR 

4,ID 

00020b 

013t 

CF40 

FEC3 



STR 

4 , D+2 

000*06 





* 


TYPE OF PUNCHES ?= •LITtRAE' <D)» 

000207 

0140 

5C44 




EDV 

5,68 

000*06 

0141 

0F40 

0000 

P 


STR 

5 , T YPEOF 

000209 





* 


• IF* ID * *EQ* *H£X* (2u88) 

000410 







'THEN* 

000211 





* 


•BEGIN* 

000214 

0143 

C970 

2086 



CMR 

4,58328 

000213 

0145 

0981 

0042 



BNl 

£22 

000214 





* 


•INTEGER* READER CHANNEL? 

00021b 





* 


ERROR LABEL ;= »EiTERA e*(P3)5 

000216 

014 7 

F870 

5033 



LUR 

7, =20531 

000417 

0149 

F F 40 

0000 

P 


STR 

7, EAbEEI 

OOO 4 I 6 





* 


READ OR PUNCH ;= kEAD @00? 

000*19 





* 

ASK kEADER 

UUESTI UN: 

000220 

014a 

9800 

0007 

X 


LDK 

1 ,<10W0RD+7 

000221 

0140 

9F40 

0000 

P 


STR 

1 ,READOR 

000424 


014F 



L23 

EOu 

s 

000423 





* 


ASK NEW DUES 1 IUN ("READER CHANNEL NUMBERS”)? 

000224 

014F 

F6C0 

FEB4 



EAd 

7,D+4 

00022b 

0151 

96C0 

FED5 



LAd 

1,124 

000226 

0153 

9F87 




STB 

1 , $ B 7 

00042 7 

0154 

03C0 

0000 

P 


ENj 

5,VKANO 

000226 

0156 

03C0 

0000 

P 


LNj 

5,VKGB 

000229 





# 


* 1F' GET BREAK *Eu* TRUE 

000230 





* 


•THEN* 

000231 





* 


•GO TO* ask nexi; 

000232 

0156 

6001 




CMV 

6*1 

000233 

0159 

0901 

0000 

P 


BE 

ASKNEX 

000234 

0156 

F6C0 

FEA8 



EAd 

7 ,D + 4 

000* 3b 

0150 

9BC0 

FEA5 



LAB 

1,0+3 

000236 

015F 

9T87 




SID 

l , SB 7 

000*37 

0160 

03C0 

0000 

P 


ENJ 

5 , VKGH 

000236 





* 


GET HEX (READER CHANNEL )? 

000239 





# 


•IF* READER CHANNlL *MaSK* 'HEX* (FFCO)*EU* 0 

000*40 

0162 

E84G 

FEAO 



EUR 

6, D + 3 

000*41 

0164 

£570 

FFCO 



and 

6,5-64 

000242 

0166 

6969 




BE* 

6, >L23 

000243 





* 


READER CHANNlL 'MASK* *H£X» (003F) *N£* 

000244 





* 


•THEN* 

00024b 





* 


•GO 10' ASK READER QUESTION? 

000246 

0167 

£840 

FE96 



EUR 

6,D + 3 

000247 

0169 

£570 

00 3 F 



AND 

6,563 

000*46 

0166 

69£4 




bne* 

6,>L2 3 

000249 





# 


CREATE FUNCTION CdDES (READER CHANNEL)? 

000*50 

016C 

FBCO 

FE9 7 



LAB 

7 , D + 4 

000251 

016L 

£840 

F £94 



EDR 

6,D+3 

00025* 

0170 

EF 07 




STR 

6,3,B7 

000253 

0171 

D3C0 

0000 

P 


LNj 

5 ♦ JF C 

000*54 

0173 

FBCO 

F £90 



LAB 

7 , D + 4 

000255 

0175 

96C0 

FE8C 



LAB 

1 , D + 2 

000256 

0177 

9F87 




SI a 

1 , S B 7 

000257 





# 


INCUT (ID 2 , INPUT ID & 0 @) ? 

000256 

0178 

OFOO 

ooou 

X 

N2 

NOP 

<IOWORD+13 

000*59 

01 7 A 

t64G 

FFFE 



LDR 

6,N2+i 

000260 

01 7C 

EF40 

F £88 



STR 

6, D+ 5 

000*61 

U17E 

D3C0 

0000 

p 


ENJ 

5 , J 10 

000*62 





* 


•IF* ID 2 ' Nt * *HlX* (2008) ' AND * 

000263 

0180 

£840 

FE81 



EDR 

6,D + 2 

000264 

016* 

£970 

2006 



CMK 

6,58200 

00026b 

0184 

0904 




BE 

>E22 

000266 





* 


ID 2 * Nb * * HeX • ( 208A) 

000267 





* 


•THEN* 

000266 





* 


* GO 10* ASK READER QUESTION? 

000269 

0165 

£970 

208A 



CMR 

6,58330 

000*70 

0187 

09Cb 




BNE 

>L23 

000271 





* 


•END* ; 

000274 

0186 

FBCO 

FE7A 


L22 

LAa 

7,D + 3 

000273 

018A 

96C0 

0000 

p 


EAd 

I,BINARY 

000*74 

018C 

9F87 




STB 

1 , SB 7 

000*75 





* 


INJUT (INITIALIZE,OUTPUI CONTROL ©Og)? 

000*76 

0180 

ABCO 

0000 

p 


lab 

2 , IUWUR 0 

000*77 

018F 

AF CO 

F674 



STB 

2 , D + 4 

000*76 

0191 

03C0 

0000 

p 


ENj 

5 , JIO 

000279 





* 


•IF* ID 2 *E0' 'HEX* (2008) 

000280 





* 


•THEN* 

000*81 

0193 

£840 

FE6E 



LDR 

6,D+2 

000*8* 

0195 

£970 

2006 



CMR 

6,58200 

000283 

0197 

09 8 F 




bNE 

>L30 

000284 

0198 

FBCO 

FE6A 



lAb 

7,D + 3 

000285 

019A 

9BC0 

0000 

p 


lad 

I , BINARY 

000*86 

019C 

9F87 




STd 

1 ,SB 7 

000*87 





* 


INCUT (BINARY MODE* OUjPUT CUNF1GURATION 000) 

000*88 





* 


* EuSE • 

000289 

0190 

OFOO 

0006 

X 

N3 

NOP 

< 1UW0RD+11 

000*90 

019F 

C840 

FFFE 



LDR 

4,N3+1 

000291 

0 1 Ai 

CF4G 

FE62 



STR 

4,D + 4 

00029* 

0 1 A3 

03C0 

0000 

p 


ENJ 

5,JIO 

000*93 

01A5 

0F8E 




B 

>L3 I 

000*94 

01A6 

FBCO 

FE5C 


L30 

EAd 

7,D + 3 

000*95 

o l Aa 

9BC0 

0000 

p 


lab 

1, SETTOH 

000296 

01AA 

9F87 




ST a 

1 , SB7 

000*9 7 

01 A6 

OFOO 

0005 

X 

N4 

NOP 

<1DWORD+5 

000296 

01 AD 

£840 

FFFE 



LDR 

6 ,N4+1 

000*99 

01AF 

EF 40 

F £54 



SIR 

6 , D + 4 

000300 

0161 

D3C0 

0000 

p 


ENJ 

5,JIO 

000301 





* 


INCUT (SET TU HOLLERITH, OUTPUT TASK @00)? 

00030* 

0163 

FBCO 

FE4F 


L31 

EAd 

7,D + 3 

000303 

0165 

9BC0 

FE7D 



lab 

1,13* 

000304 

0167 

9F87 




STB 

i , SB7 

000305 

0166 

D3C0 

0000 

p 


ENJ 

5 , VKPNT 

000306 





# 


PUT NEW TEXT ("READY READERS”)? 


f 


f 

A 



I I TLfcL CRMS3,• REV G*,CARDREADER / PUNCH TV (SAF) PAGE ill 


000307 

01 BA 

03CO 

0000 

p 


LNJ 

5 * JWR 

00030b 





* 


WAIT FOR RETURN? 

000309 





# 


CHECK STATE (SHOULD BE uN)? 

000310 

oibc 

FbCO 

FE46 



LAb 

7,D+3 

000311 

oibE 

6C01 




LOV 

6*1 

0003 1 2 

OlbF 

EF07 




STR 

6 * $B7 

000313 

oico 

03C0 

0000 

p 


LNj 

5 * JC5 

00031A 

01C2 

FbCO 

FE40 



EAb 

7,0*3 

0003 13 

01C4 

9bC0 

0000 

p 


LAb 

1,BUFF 1 

000316 

01C6 

9F87 




5Tb 

1»$ b 7 

000317 

0 1C 7 

OFOO 

0007 

X 

N5 

NOP 

<10W0RD+7 

00031b 

01C9 

E840 

FFFE 



LOk 

6,N3+ 1 

000319 

OlCb 

EF40 

FE3B 



STR 

6,0*4 

000320 





* 


I OLD (BUFFER§0@ ,NEAD6>0@ , 171) ; 

000321 

01CU 

C870 

OOAb 



LOR 

4, = 171 

000322 

OiCF 

CF40 

FE33 



ST K.. 

4,0*5 

000323 

01D1 

03C0 

0000 

p 


LNJ 

3 * J 1L 

000324 





* 


•IF* STATUS WAS *NE» PUlSDO CARD 51ATUS 

000323 





* 


•UM10N* * HEX• (4000) 

000326 





* 


•THEN* 

000327 

01D3 

E840 

0000 

p 


LOk 

6,PUESOD 

00032b 

0105 

E470 

4000 



OK 

6,=16384 

000329 

0107 

E940 

0000 

p 


CMK 

6,STATWA 

000330 

0109 

0903 




BE 

>L33 

000331 

O10A 

03C0 

0000 

p 


LNJ 

3 ♦ JSE 

000332 





* 


CHECK STATUS ERRORS; 

000333 


010C 



E33 

ECU 

$ 

000334 





# 


• IF* 10 2 •NE * •HEX• (2u0b) 

000333 





# 


•THEN* 

000336 

010C 

E840 

FE2 5 



LOR 

6,0 + 2 

000337 

01OE 

E970 

2008 



CMK 

6,=8200 

00033b 

oito 

0908 




bE 

>L34 

000339 

OlEl 

FBCO 

FE2 1 



L Ad 

7,0+3 

U00340 

0163 

9BC0 

FE5 7 



LAb 

1 * T 35 

000341 

01E5 

9 F 8 7 




51 D 

1 ,SB7 

000342 

01 Eb 

D3C0 

0000 

p 


LNj 

3,VKPNT 

000343 





* 


PUT NEW TEXT ("RUnOUT, STARTS”)5 

000344 

OiEb 

FbCO 

FE1A 


L34 

LAb 

7,0+3 

000343 

0 1 LA 

6840 

0000 

p 


LOK 

6,CHANNE 

000346 

01 EC 

EF 07 




5TR 

6 , $B7 

000347 

01E0 

D3C0 

0000 

p 


LNj 

3 , JF C 

00034b 





* 


CREATE FUNCTION C0DE5 (CHANNEL); 

000349 





* 


•ENO* 

000330 





* 


•ELSE* 

000351 





* 


•BEGIN* 

000352 

o i ci¬ 

OFbl 

003F 



b 

L1 5 

000353 


OIF 1 



L21 

equ 

5 

000^54 





* 


•INTEGER* VALUE,i; 

000353 





* 


LABEL 1 ;= • LIIEKAL* (P4) ; 

000356 





# 


PUI NEW TEX 1 

000357 

on-1 

E870 

3034 



LOR 

6,=20332 

00035o 

0 1 F 3 

EF40 

0000 

p 


SIR 

6 , LABEL 1 

000359 





* 


(’•ENTER 3 HEX VALUES/COL* RETURN ALONE ENOS INPuT$” 

000360 

01F 3 

FBCO 

FEOE 



LAb 

7,0 + 4 

000361 

OIF 7 

9bC0 

FE4b 



LAo 

1 , T 3 7 

000362 

01F9 

9F8 7 




sib 

1 ,$b 7 

0U0363 

o l Fa 

U3C0 

0000 

p 


LNj 

3,VKPNT 

000364 

01FC 

FbCO 

FE07 



LAb 

7,0 + 4 

000365 

0 1F L 

9BC0 

0000 

p 


LAb 

1 , bUF F 1 

000366 

0200 

9F87 




51 b 

1 ,$B7 

000367 

0201 

6C54 




LOV 

6,84 

00036b 

0202 

EF40 

FE02 



51 K 

6,0 + 5 

000369 

0204 

4C50 




LOV 

4,80 

000370 

0203 

CF 40 

FEOO 



5T R 

4,0 + 6 

000371 





* 


FUL BUFFER ( BUFFER1 , 80 , 0 ) ; 

000372 





*# 

LOOP 10 JET 

VALUE OF COLUMNS; 

000373 

020 7 

8740 

F OF F 



CL 

0+7 

000374 

0209 

U3C0 

0000 

p 


LNJ 

3, JFb 

000375 


020b 



L38 

EQu 

5 

0003 76 





* 


•FDR* 1 ; =0 •STEP* 1 • UNTIL* 79 

000377 

020b 

8740 

FOF 7 



CL 

0 + 3 

00037b 





* 


•0J» 

000379 





* 


•BEGIN* 

000380 

0200 

E840 

FPF 5 


L39 

LOR 

6,0+3 

000381 

020F 

6Ebl 




AO V 

6,-79 

000382 

0210 

6 A1 F 




6G4 

6 , >L 15 

000383 





* 


VALUE := • HEX • (FOOD); 

000384 

0211 

E870 

F 000 



LOK 

6 , =-4U96 

000385 

0213 

EF40 

FOEE 



51R 

6,0 + 2 

000386 





* 


PUT NEW TEAT (”$”>; (LINEFEEO C/R) 

000387 

0213 

FbCO 

FDEE 



LAb 

7,0+4 

00038b 

0217 

9BC0 

FE44 



LAb 

1 ,T41 

000389 

0219 

9F87 




5Tb 

1 , S»B 7 

000390 

02 1A 

D3C0 

0000 

p 


LNj 

5,VKPNT 

000391 





* 


GET HEX (VALUE) ; 

000392 

02 1C 

FbCO 

FOE 7 



LAb 

7,0 + 4 

000393 

0216 

9bC0 

F0E3 



LAb 

1 ,0 + 2 

000394 

0220 

9P 8 7 




5 1 D 

1 ,$b 7 

000393 

0221 

03C0 

0000 

p 


LNj 

3 , VKGH 

000396 





* 


•IF* VALUE * EQ* *HEX* (FOOO) 

000397 





* 


•THEN* 

000398 





* 


•GO 10* NO HOKE INPUT! 

000399 

0223 

E84Q 

FODE 



LOR 

6,0 + 2 

000400 

0225 

E970 

F 000 



CMK 

6,=-4096 

000401 

02 2 7 

0908 




BE 

>L 1 3 

000402 





* 


bufferi eie ;= vau-UE; 

000403 

0228 

9840 

FOOA 



LOR 

1 , D + 3 

000404 

022 A 

EF 10 

0000 

X 


SIR 

6 , <bUFF1 # $R1 

000405 





* 


•END* ; 

000406 





* 

NO MORE 

INPUT; 

000407 

022C 

8AC0 

FDPo 



INC 

0 + 3 

00040b 

0226 

OFDF 




b 

>L39 

000409 





* 


•END* ; 

000410 





* 

•END* ; 

000411 





**; 



000<t 12 





** 

PUNCH UNTIL 

bREAK OR SPECIFIED; 

000413 





**; 



000414 


022 F 



L15 

EQU 

$ 

000415 





* 

PUT 

NEW TEXT (’’MAXIMUM CARDS ARES”), 

000416 

022F 

FbCO 

FD02 



LAb 

7,0 + 2 

000417 

0231 

9BC0 

FE2C 



LAb 

1,144 

000418 

0233 

9F87 




5T b 

1 , $b 7 

000419 

0234 

03C0 

0000 

p 


LNJ 

5,VKPNT 




TITLE 


CRMS3 * * RtV G* * CARDREAOER / HUNCH TV (SAF) 


PAUL 112 


UOU420 





# 

PUT DECIMAL (MAXIMUM CARDS)5 


000421 

0236 

FbCO 

FOCb 



LAd 

7*0*2 


000422 

023b 

E840 

0000 

P 


EUR 

6 *MAX IMJ 


000423 

023A 

EF07 




STR 

6 , $B7 


000424 

023b 

D3C0 

0000 

P 


LNj 

5 * VKPO 


000423 





* 

ASK NEW QUESTION ("READY PUNCH* TOTAL 

CARDS*")* 

000426 

0230 

FBCO 

F0C4 



LAb 

7,0*2 


000427 

0231- 

9BC0 

FE28 



LAo 

1*T45 


000^26 

0241 

9 F 8 7 




STb 

1 * 2>B7 


000429 

0242 

03C0 

0000 

H 


LNj 

3 , VKANQ 


000430 





* 

GET OECIMAL (CAROS SPECIFIED ? 


000431 

0244 

FbCO 

FOBO 



LAB 

7*0*2 


000432 

0246 

9bC0 

0000 

H 


LAb 

1 * CAKOSS 


000433 

0248 

9F67 




ST d 

l*Sb7 


000434 

0249 

03C0 

0000 

H 


LNj 

3, VKGD 


000433 

0246 

D3C0 

0000 

P 


LNj 

5* JWR 


000436 





* 

WAIT FOR RETURN; 


000437 





* 

punch; 



00043b 


0240 



L10 

EQU 

$ 


000439 





* 


label i ; = » literal * (P5); 


000440 

0240 

L870 

3035 



LOR 

6, = 20533 


000<t4i 

024F 

EF 40 

0000 

P 


STR 

6,LABEL1 


000442 





* 


ERRUR FLAG ;= 0? 


000443 

0251 

6740 

0000 

P 


CL 

ERRURF 


000444 





# 

clock semaphore := o; 


000*43 

0233 

6 740 

0000 

P 


CL 

CKSLM 


000446 

0255 

FbCO 

FD AC 



LAb 

7,0*2 


000447 

025 7 

C84C 

0000 

P 


LOR 

4 * CAROSS 


00044b 

0259 

CFO 7 




STR 

4,SB 7 


000449 





* 

PUNCh A OECK (CAROS SPECIFIED, TYPE OF PUNCHES) 

000430 

025A 

0840 

0000 

P 


LOR 

5 * TYPEOF 


000451 

025C 

OP 40 

F DA6 



STR 

3*0+3 


000452 

02 31 

03C0 

0000 

P 


LNj 

5 * JPO 


000453 





* 

PUT NEW TEXT ("PUNCHED )5 


000454 

0260 

FBCO 

FDA1 



LAb 

7,0+2 


000453 

0262 

9BC0 

F E13 



LAb 

1 * T 4 6 


000456 

0264 

9F87 




STd 

1 *$67 


000*5 7 

0265 

03C0 

0000 

P 


LNj 

5 * VKPNT 


000*56 





* 

CALCULATE'ELAPStO TIME (CARO CUUNT)* 


000*59 

0267 

FbCO 

FD9A 



LAo 

7*0 + 2 


000*60 

0269 

E840 

0000 

P 


LOR 

6 * CAROSR 


000*61 

026 b 

EP 07 




STR 

6 * $B 7 


000*62 

026C 

03C0 

0000 

P 


LNj 

5 * JET 


000*63 





* 


•IF* ERRUR FLAG * NE * 0 


000*64 





* 

•THEn* 


000465 





* 


»BEGIN• 


000466 





# 

WRONU 

response: 


000*67 

026L 

E840 

0000 

P 


LOR 

6 * EKKORF 


000*66 

0270 

6926 




btc 

6 * > L 4 7 


000469 





* 


AS< NEW QUESTION 


000470 


0271 



L48 

EQu 

% 


000471 





* 


('•ERROR CAROS OFF St T STACKED*"); 

000472 

02 71 

FbCO 

FD90 



LAb 

7*0*2 


000473 

0273 

9BC0 

F E 0 6 



LAb 

1 * T 4 9 


000474 

0273 

9F87 




ST b 

1 ,SB7 


000473 

02 7b 

03C0 

0000 

P 


LNj 

3,VKANQ 


000476 





* 


T E'IP ;= * HEX * (5900) ; 


000477 

02 78 

E870 

3900 



LOk 

6, = 22797 


00047b 

027A 

EF 40 

FD86 



STR 

6*0+1 


000479 





* 


GET CHAR (TEMP); 


000480 

027C 

FbCO 

FD85 



LAb 

7,0+2 


000481 

027L 

9bC0 

FD82 



LAd 

1,0+1 


000482 

0280 

9F87 




ST b 

1 * SB 7 


000483 

0281 

03C0 

0000 

P 


LNj 

3,VKGC 


000484 





* 


•IF* IEHP * NE * •LITERAL* 

(Y) 

000483 





* 


•T REN * 


000486 





# 


•BEGIN* 


000487 

0283 

E84Q 

FD7D 



LOR 

6,0+1 


000488 

0265 

6059 




CM v 

6,89 


000489 

0286 

0910 




BE 

>L4 7 


000490 





* 


•IF* TEMP *NE * * L l TEKAL * (N) 

000*91 





* 


• THEN* 


000*92 





* 


• GO TO * WRONu 

RtSpoNSE; 

000*93 

0287 

604E 




CMv 

6,78 


000494 

0268 

09E9 




bNE 

>L46 


000495 





# 


LABEL 2 ;= 'LITERAL 

* (os); 

000496 

0289 

C870 

4F 53 



LOR 

4, = 20307 


000497 

028b 

CF40 

0000 

P 


STR 

4,LABEL2 


000498 

0260 

03C0 

0000 

P 


LNJ 

5* JRE 


000499 





* 


REPORT ERRUR; 


000300 

02 6 F 

FbCO 

FD72 



LAb 

7,0 + 2 


000501 

0291 

9BC0 

FDF9 



LAb 

1,132 


000302 

0293 

9F87 




Sib 

1 *$b 7 


000303 

0294 

03C0 

UOOO 

P 


LNj 

5 *VKPT 


000304 





* 


PUT TEXT (", ERROR 

EJtCTS")* 

000305 





* 


•END*; 


000506 





* 


• end*; 


000307 


0296 



L47 

EQu 

$ 


000308 





* 

CAROS SPECIFIES ; = CAROS REAO; 


000509 





* 

VERIFY AGAIN; 


000510 

0296 

E840 

0000 

P 


LOR 

6,CAROSR 


000311 

0296 

EF40 

0000 

P 


STR 

6 * CAROSS 


000512 


029A 



L53 

EQU 

$ 


000513 





* 


R OR V MOOt := 'LITERAL* (V)? 


000514 

02 9 A 

6C56 




LOy 

6*86 


000513 

029b 

EF40 

0000 

P 


STR 

6 *RURVMS 


000316 





* 


ASK NEW QUESTION ("VERIFY*"); 


000517 

0290 

FBCO 

FD64 



lab 

7*0+2 


000516 

029F 

9BC0 

FDF3 



LAb 

1*154 


000519 

02 Ai 

9F67 




STB 

1 * S B 7 


000320 

02A2 

03C0 

0000 

P 


LNj 

3 * VKANQ 


000321 





# 


TEMP := *HEX* (5900); 


000522 

02A4 

E870 

5900 



LOK 

6, = 22797 


000323 

02A6 

EF40 

FD5A 



STR 

6*0+1 


000524 





* 


GET CHAR (TEMP); 


000325 

02A8 

FbCO 

FD59 



LAd 

7*0 + 2 


000526 

02 AA 

9BC0 

FD56 



LAB 

1*0+1 


000527 

02 AC 

9F67 




ST b 

1 * *B7 


000526 

02 AO 

03C0 

0000 

P 


LNJ 

5 * VKGC 


000529 





# 


•IF* temp *NE* *LITERAL* (N) 


000530 





* 


♦then* 


000531 





# 


•BEGIN* 


000332 

02 AF 

E840 

FD51 



LOR 

6,0+1 




/<"' " N \ 







r i Tut 


CRMS3 * • RtV G • * CARDREADER 


/ PUNCH TV (SAM 
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0 U 0 5 3 3 

02 bl 

604L 



CMV 

6*78 

000534 

0202 

0905 



BE 

>L55 

000535 




* 


•IF* TEMP •Nt• * LlTtRAL 1 (Y) 

000536 




* 


* THEN* 

000537 




# 


•SO TO* VERIFY AGAIN? 

000538 

0203 

6059 



CMV 

6*89 

000539 

02b4 

09E6 



dNL 

> L 5 3 

000540 




* 


LETTER RP? 

000541 

0205 

03C0 0000 

P 


LNj 

5,KJLR 

000542 




* 


• enu *; 

000543 




# 

* END *; 

(OF PROCEDURE) 


000545 
000546 
000547 
00054b 
000549 
000550 
000551 
000552 
Q00553 
000554 
000555 
000556 
000557 
00055S 
000559 
000560 
000561 
000562 
000563 
00056*+ 
000565 
000566 
000567 
00056b 
000569 
000570 
00057i 
000572 
000573 
00057*+ 
000575 
000576 
000577 
00057b 
000579 
000580 
000581 
000582 
000583 
000584 
000886 
00058b 
000587 
000588 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
00059b 
000599 
0000 ERR 
L 


02b7 

02b9 


83CS FD4S 
02B9 

83C0 0000 


* 

# 

055 

LI 


026 b 

COUNT 


0098 


•END*; 

•FINISH* 

JMP 

LOO 

JMP 

XLOC 

CTRL LINK 
XLOC 

CTRL LINK 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLoC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLuC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

END 


*D 

$ 

ZKStX 
ZKStX 
ZKStX 
ZVSLR 
ZVSLR 
ZNK1U 
ZHRTCC 
VKP1 
VKPNI 
VKANO 
VKPD 
VKGC 
VKGD 
VKGH 
VKGb 
VKkKD 
10 

STATImA 

STAI US 

CHANNt 

POLSOO 

1 YPtOf- 

StTTOH 

SET1QA 

bINARY 

LABEL 1 

LABEL2 

MAX 1 HU 

CAROSS 

CAROSK 

LOWAOO 

kURVMU 

tRRORE 

CKSEM 

REAOOK 

BUFFI 

lOWORO 

JRL 

JiO 

J 1 L 

JWR 

JSE 

JCS 

JEC 

Otl 

JFb 

JPO 

KJLR 

LETR 

LtT V 

ASKNEX 

ZVKULP * ZVKJLP 



TULL 


CRMS3*•RLV 0* *CARDREADER / PUNCH TV (SAP) 
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2VkJLR 

• LIST 




05/19/78 

14 2 9 * 7 K W 

05/19/78 1422.7 45284400u0 

OQQUOi 






TITLE 

2VKJLR * * REV 00* 

000002 


OOAb 




XDEP 

KJLK 

000003 


00A6 




XDEF 

2VKJLK 

000004 


0006 



2KCQM 

COMM 

6 

000005 

0000 

0000 



0 

KESV 

8*0 

000006 

0006 

OOOF 



T 6 

OC 

16 

OOOuO 7 

0009 

6245 

4144 

4552 


T EX 1 

* READER CHANNELS* 


oooc 

2043 

4841 

4E4L 





454C 

2400 





000006 

0011 

OOOC 



T15 

DC 

12 

000009 

0012 

5645 

5249 

4659 


TEXT 

•VERIFY MODES * 


Ou 1 6 

204Q 

4F44 

4524 



000010 

0016 

0016 



V 17 

DC 

24 

000011 

0019 

4841 

5645 

2031 


TEXT 

•HAVE 100 CARD TEST* 


001C 

3030 

2043 

4152 





4420 

5445 

5354 




000012 

0022 

2044 

4543 

4fc>24 


TEXT 

• DECKS* 

000013 

0026 

OOOA 



T22 

DC 

10 

000014 

0026 

5245 

4144 

2040 


TEXT 

•READ MODES* 


0029 

4F44 

4524 




000016 

002b 

0012 



T 23 

DC 

18 

000016 

002C 

4 D 4 1 

5849 

4055 


TEXT 

•MAXIMUM CARDS ARES* 


002 F 

4D20 

4341 

5244 





5320 

4152 

4524 




000017 

0036 

0010 



T24 

DC 

16 

000016 

0036 

2C20 

4445 

5349 


TEXT 

*, DESIRED TOTALS* 


0039 

5245 

4420 

544P 




5441 

4C24 





OOOolv 

0036 

0012 



T 2 7 

DC 

lb 

000020 

003P 

5241 

4t44 

4F40 


TEXT 

•RANDOM PICK DELAYS* 


0042 

2050 

4943 

4b20 





4445 

4C41 

5924 




000021 

0046 

0006 



T 30 

DC 

6 

000022 

0049 

5641 

4C55 

4524 


TEXT 

•VALUES* 

000023 

004C 

0012 



T31 

DC 

18 

000024 

0040 

5245 

4144 

5920 


TEXT 

* READY RANDOM DECKS* 


0060 

5241 

4E44 

4F4D 





2044 

4543 

4b24 




000026 

0066 

ooob 



T 35 

DC 

11 

000026 

006 7 

5350 

4543 

4946 

TEXT 

•SPECIFIED S* 


006 A 

4945 

4420 

2400 



000027 

0050 

0011 



136 

DC 

17 

000026 

oust 

2C20 

4255 

5420 


TEXT 

** BUT READ ONLY $• 


0061 

5245 

4144 

204P 





4E4C 

5920 

2400 




000U29 

0067 

004A 



T48 


74 

000030 

0066 

5354 

4154 

5553 


•STATUS ERROR CARDS* 


006d 

2045 

5252 

4F52 






2043 

4152 

4453 




000031 

0071 

204p 

4646 

5345 


TEXT 

• OFFSET STACKED**2*0D0A*,«AnD CARD AF 


0074 

5420 

5354 

4143 




CC77 

4B45 

440D 

0A41 





007k 

4E44 

2043 

4152 






4420 

4146 





000032 

00 7 F 

5445 

5220 

4441 


TEXT 

•TER DATA ERROR CARDS OFFSET a * 


0082 

5441 

2045 

5252 





4F52 

2043 

4152 






4453 

204F 

4646 




000033 

0060 

um 

5424 


T53 

?tXT 

29 

000034 

008t 

4156 

4552 

4147 


•AVERAGE DELAY SPEE* 


0091 

4520 

4445 

4C41 






5920 

5350 

4545 




000036 

009 7 

442C 

2049 

4E20 


TEXT 

»D * IN MSECS* 


009A 

4D53 

4543 

2400 



000036 

0090 

0006 



T64 

DC 

6 

00003 7 

009L 

OOAl 

5245 

4144 

2024 

T56 

TEXT 

•READ S* 

000036 

0007 



DC 

7 

000039 

00A2 

5645 

5249 

4659 

TEXT 

•VERIPYS* 


OUAS 2400 


000040 


00A6 



2VKJLR 

EUU 


S 




000041 

00A6 

bFOO 

0001 

K 


SAVE 


<zkcum+ 1 * 2 * 0011 * 





OOAb 

0011 










000042 





* 

•BEGIN* 





000043 

00A9 

OF 8 1 

024b 



b 


LI 




000044 





* 

• 

INTEGER* TEMP* ID 25 




000046 

OOAb 

DFCO 

FF54 


KJLR 

ST b 


5 * D 




000046 





* 


ID 2 

id; 




000047 





# 

START 

procedure; 




000048 

OOAD 

E840 

0000 

P 


LDR 


6 * ID 




000049 

GOAF 

EF40 

FF 52 



STR 


6 * D+2 




000050 


GOBI 



E3 

EDO 


S 




000051 





* 


• IF* 

ID •EU * * HEX• (2088) 




000052 





* 

• 

THEN* 





000053 





* 


* BEblN* 




000054 

OObl 

E840 

0000 

P 


LDR 


6 * 1 D 




000055 

0Qb3 

E970 

2088 



CMK 


6 * *8328 




000056 

OOB5 

09BA 




BNt 


>L4 




000057 





* 



'INTEGER* READER CHANNEL* 




000056 





* 

ASK RcADEk 

question; 




000059 


00B6 



L5 

EDO 


S 




000060 





* 



ASK NEW QUESTION ("READER CHANNEL*"! 5 



000061 

00b6 

FBCO 

FF4D 



LAb 


7«D*4 




000062 

00b6 

9BC0 

FF4F 



LAB 


1.T6 




000063 

OObA 

9F87 




STB 


1 »SB7 




000064 

OODb 

D3C0 

0000 

P 


LNj 


StVKANO 




000U65 

OOBD 

D3C0 

0000 

P 


LNj 


5 * VKGB 




00006o 





* 



•IF* GET BREAK •EQ• TRUE 




000067 





* 



•THEN* 




000066 





* 



•GJ TO* ASK NEXT; 




000069 

OOBF 

6D01 




CMV 


6*1 




0Q0U70 

OOCO 

0901 

0000 

P 


BE 


ASKNEX 




000U71 

00C2 

FbCO 

FF41 



LAb 


7 * D+4 




000072 

00C4 

9BC0 

FF3E 



LAB 


1 *D+3 




000073 

00C6 

9F87 




STB 


l * SB 7 




000074 

00C7 

D3C0 

0000 

P 


LNJ 


5 *VKGH 




000075 





# 



GET HEX (READER CHANNtL)» 




000076 





* 



•IF* HEADER CHANNEL •MASK• *hEX* 

(FFCO) 

*tu* 

0 

000077 

00C9 

E840 

FF39 



LDR 


6 * D + 3 




000U78 

OOCb 

E570 

P FCO 



AND 


6**-64 




000079 

OOCU 

6969 




BEE 


6 * >L5 




000080 





* 



•OR* HEADER CHANNEL * MASK• *HEX* 

(003F) 

•Nt* 

0 
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TITLE CRMS3UKEV G* *CARDREADER / PUNCH TV (SAM 


000081 





* 


• THEN• 

oooo8<; 





* 


•GO T0» ASK RtADtK QUESTION; 

000083 

OOCE 

L84G 

FF34 



LDK 

6*D*3 

OOOU84 

0000 

E570 

003F 



AND 

6, = 63 

ooooas 

0002 

69E4 




BNLZ 

6 * >L5 

0G0U8O 





* 


CREATE FUNCTION CODES (READER CHANNEL)» 

000087 

0003 

FBCO 

FF30 



LAB 

7 * D+4 

000088 

0005 

L640 

FF20 



LUK 

6,D*3 

000089 

0007 

EF07 




STR 

6 * $ B 7 

00009U 

0008 

U3C0 

0000 

P 


LNJ 

5 * JF C 

000091 

OOOA 

FBCO 

F F 2 9 - 



LAb 

7*D*4 

000092 

OOOC 

9BC0 

FF25 



LAb 

1 * D*2 

000O93 

000b 

9F67 




Si b 

n$B7 

00009m 





* 


1N0UT (ID 2* INPUT ID §00) i 

00OU93 

OODF 

OFOO 

0000 

X 

N1 

NOP 

<I DWORD*13 

OOOU96 

OOE1 

E840 

FFFE 



LDR 

6 *N1 +1 

000097 

00E3 

EF 40 

F F 2 1 



STR 

6,D*5 

000098 

00E3 

D3C0 

0000 

P 


LNj 

3 * J10 

000099 





* 


•IF* ID 2 •NE* •HEX» (2006) •AND * 

000100 

00E7 

E840 

FF1A 



LOR 

6*D*2 

000101 

00E9 

E970 

2008 



CNR 

6 *=8200 

00010*: 

OOEb 

0904 




BE 

>L4 

00010;* 





* 


ID 2 •NE• •HEX• (208A) 

000104 





# 


•THEN* 

000108 





# 


•GO TO* ASK READER QUESTION; 

000106 

OOLC 

E970 

2 08 A 



CNR 

6,=8330 

000107 

OOEL 

09C8 




BNb 

> >L5 

000106 





* 

•END* 

; 

000109 


OOEF 



E4 

EGu 

$ 

000110 





* 

2.HRTCC 

;= o; 

000111 

GOLF 

6740 

0000 

P 


CL 

ZHKTCC 

000112 





* 

ZHKTCI 

; = 6; 

000113 

OOF 1 

8 740 

0000 

P 


CL 

ZHRTCl 

000114 





* 

SUM : 

= o; 

000118 

OOF 3 

6 740 

0000 

P 


CL 

SUN 

0001lo 





# 

TOTAL 

;= o; 

000117 

OOF 5 

6740 

0000 

P 


CL 

I01AL 

000118 





* 

RESPuiMSb := o; 

000119 

OOF 7 

6740 

0000 

P 


CL 

RESPUN 

000120 





# 

bASE ; 

= •HEX• (6369) ; 

000121 

OOF 9 

E870 

6369 



LDR 

6,=23449 

00012 *: 

OOFb 

EF 40 

0000 

P 


STR 

6 ,bASE 

000123 

OOF 0 

FBCO 

FF 05 



LAb 

7 *D + 3 

000124 

OOFF 

9BCG 

0000 

P 


LAd 

1tblNARY 

000128 

0101 

9 F 87 




ST d 

1 * SB 7 

000126 





* 

1NQUI 

(INITIAL1ZE*0UTPUT CUN 1RUL &0e); 

000127 

0102 

ABCO 

0000 

P 


LAb 

2*1OwURD 

000126 

0104 

AF CO 

F EF F 



ST b 

2 * D + 4 

000129 

0106 

D3C0 

0000 

P 


LNj 

3 * J 1U 

000130 





* 

ERkOk 

LABEL ;= •LITERAL* (RD ; 

000131 

0106 

E870 

3231 



LOk 

6,=21041 

000132 

010m 

EF40 

0000 

P 


STR 

6 * LAtiEL1 

000133 





* 

LOW ADDRESS ;= 2VDLk ? 

000134 

010 C 

C840 

0000 

P 


LDR 

4 *ZV$LR 

000133 

010 E 

CF40 

0000 

P 


STR 

4 * LOWADD 

000136 





* 

•IF’ 1 U 2 *tQ» * HEX• (2008) 

000137 





* 

•THEN* 


000136 

0110 

0840 

F EF 1 



LOR 

5 *D + 2 

000139 

0112 

0970 

2008 



CNR 

5,=6200 

000140 

0114 

098F 




bnl 

>L 12 

000141 

0113 

FBCO 

FEED 



LAb 

7 * D ♦ 3 

00014*: 

011 7 

9BC0 

0000 

P 


LAb 

1 * BINAR Y 

000143 

000144 

0119 

9F 87 



* 

ST b 

1 *Sb7 

INOUi (BINARY MODE* OUIPUT COimF IGURAT I ON §06) 

000143 





* 

•ELSt* 

000146 

0 11A 

OFOO 

OOOB 

A 

N2 

NUP 

<1 OWORD^11 

000147 

one 

F 840 

FFFE 



LDK 

7 * N2 ♦ l 

000146 

out 

F F 4 0 

FEE5 



STR 

7 * U + 4 

000149 

0120 

03CO 

0000 

P 


LNJ 

3 * J 1 0 

000i50 

0122 

0 F6E 




b 

>L13 

000131 

0123 

FBCO 

FEOF 


b 12 

LAb 

7 * D«- 3 

000152 

0125 

9BC0 

0000 

P 


LAb 

1*SETT0H 

000153 

0127 

9F67 




STd 

1 * $B7 

000154 

0128 

OFOO 

0005 

X 

N3 

NOP 

< I DWORD*- 3 

000153 

012 A 

E840 

FFFE 



LDk 

6 * N3 ♦ I 

000l3o 

012 C 

EF40 

FED 7 



SIR 

6 * D+4 

000157 

012 b 

03C0 

0000 

p 


LNj 

3* J10 

000158 





* 


1NUUT (SET TO HOLLER l T FI * OUTPuT TASK §0<U ; 

000159 


0130 



b 1 3 

EGU 

S 

000160 





* 

•IF* HAVE GENERATED CHECKSUMS «NE» (RUE • AND • 

000161 

0130 

E840 

0000 

p 


LDR 

6 « HAVEGE 

0O0162 

0132 

6001 




CNV 

6*1 

000163 

0133 

0939 




BE 

>L14 

000164 





* 

R 

OR V MODE •EQ* •LIIERAL’ (V) 

000165 





* 

•THEN* 


000166 





* 

•BEGIN 

i 

000167 

0134 

C840 

0000 

p 


LDR 

4 * RURVMJ 

000168 

0136 

4056 




CMv 

4,66 

000169 

013 7 

09B5 




bNb 

>L14 

000170 





* 


PUT NEW TEXT ("VERIFY MODES" )* 

000171 





* 

try again; 


00017*: 

0136 

FBCO 

FECA 



LAb 

7 * D+ 3 

000173 

0 1 3 A 

9BC0 

FED6 



LAd 

1 * T 13 

000174 

0 13C 

9F6 7 




STb 

1*SB7 

000175 

0130 

03C0 

0000 

p 


LNJ 

3 * VKPNI 

000176 


013F 



L16 

EOU 

$ 

000177 





# 


ASK NEW QUESTION ("HAVE 100 CARD TEST DECKS" 

0O0178 

013F 

FBCO 

FEC3 



LAb 

7 *D + 3 

000179 

0141 

9BC0 

FE06 



LAb 

1 * T 1 7 

000180 

0143 

9F67 




STb 

1 * $ b 7 

000181 

0144 

D3C0 

0000 

p 


LNj 

3 *VKANQ 

000182 





# 


TEMP ;= • HEX • ( 890D) ; 

000183 

0146 

E870 

5900 



LDk 

6 , = 22 797 

000184 

0146 

EF 40 

FtB8 



STR 

6 ,D+ 1 

000183 





* 


GET CHAR (TEMP); 

000186 

0 14 A 

FBCO 

FEB 8 



LAB 

7 *D+3 

000187 

014C 

9BC0 

FEB4 



LAb 

1 *D* 1 

000188 

014b 

9FB7 




STb 

1 * $ b 7 

000189 

014F 

03C0 

0000 

p 


LNJ 

3 , VKGC 

000190 





* 


»1F» TEMP * EQ • *L1TERAL* (Y) 

000191 





* 


•THEN* 

000192 





* 


•ELGIN* 

000193 

0151 

t840 

FEAF 



LDR 

6 *D+ 1 




T 1 l LE 

CRMS3, 

•REV 0* 

tCAKDKBAD6K 

/ PUNCH TV (SAP) PAGE 116 

000194 

0153 

6059 




CMV 

6*89 

00019b 

0154 

0991 




6N6 

>L 18 

GOOi96 





* 


CAROS SPECIF160 : = 1005 

000197 

0155 

4C64 




LDV 

4*100 

000i96 

0156 

CF40 

0000 

P 


5TK 

4 ,CARDSS 

000i99 





* 


RESPONSE *H6X» (AAaA)5 

000*00 

015* 

0870 

AAAA 



LOR 

5,=-21846 

000*01 

015A 

0F40 

0000 

H 


STR 

5,RESP0N 

000*0* 

015C 

03C0 

0000 

P 


LNj 

5,JGT 

000*03 





* 


GENERATE T6ST CHECKSUMS? 

000*04 





# 


jUW AD0R6SS ; = zvolr; 

000*05 

0156 

6840 

0000 

P 


LOR 

6 ,ZV$LR 

000*0* 

Oi*u 

6F40 

0000 

P 


STR 

6,LOWADO 

000*07 





* 


RESPONSE ;= o; 

000*0* 





* 


•END* 

000*09 

016* 

* 740 

0000 

P 


CL 

R6SP0N 

000*10 





# 


•6LS6* 

000*11 





* 


*6661N * 

000*1* 

01*4 

OF 68 




6 

>L14 

000*13 


0165 



L18 

LUU 

$ 

000*14 





* 


•IF* TEMP • NE * 'Ll 16RAL * (N) 

000*1* 





* 


•T REN * 

000*1o 





* 


•GO TO* TRY AGAIN? 

000*17 

01*5 

6840 

F 696 



LOR 

6,0+1 

000*1* 

0167 

6046 




CMv 

6,78 

000*l9 

016* 

0907 




BN 6 

>L16 TTr , 

000**0 





* 


R OR V MOOt ;= * LITtRAL• (R)? 

000**1 

0169 

4C5* 




LOv 

4,82 

000*2* 

016A 

CF 40 

0000 

P 


STR 

4,RORVMj 

000*23 





* 


* 6N0 •; 

000*24 





* 

»6ND»; 


000*2* 


016C 



L14 

6UU 

$ 

000*2* 





* 

CAROS 

R6A0 ;= i; 

000*2/ 

o i *c 

*C01 




LOV 

6,1 

00022* 

016D 

6F40 

0000 

P 


STR 

6,CAROSR 

000*29 



F 


# 

• IF * R 

OR V MODE •EQ* ’LITERAL* (R) 

000230 





* 

•THEN * 


000*31 





* 

•BEGIN* 

OQO* 3* 

01 *F 

C840 

0000 

P 


LOr 

4,RURVMJ 

000*33 

0171 

4052 




CMv 

4,82 

000*34 

017* 

09A6 




BN6 

>L21 

000*3* 





* 


PUT N6W TEXT ("READ MODES")5 

000*3* 

0173 

F6C0 

F68F 



LAb 

7,0+3 

000237 

0175 

9BC0 

F6AF 



LAb 

1 * T22 

000*3* 

01 77 

9F8 7 




5 Tb 

1 *$B? 

000*39 

0178 

03C0 

0000 

P 


LNj 

5,VKPNT 

000*40 





* 


PUT NEW 16XT ("MAXIMUM CARDS AR6VM; 

000*41 

0 17 A 

F6C0 

F688 



LAd 

7,0+3 

00024* 

017C 

96C0 

F6A6 



LAd 

1, T23 

000*43 

0176 

9F87 




STB 

l ,$67 

000244 

017F 

03C0 

0000 

P 


LNj 

5,VKPNT 

000*4* 





# 


PUT DECIMAL (MAXIMUM CARDS ); 

000*4* 

01*1 

FBCO 

F 681 



LAb 

7,0+3 

000247 

0183 

6840 

0000 

P 


LDR 

6,MAX 1MJ 

000*4* 

01*5 

6F07 




STR 

6 ,.$67 

000*49 

0186 

03C0 

0000 

P 


LNJ 

5,VKPD 

000*50 





* 

ASK QUESTION (", 06S1R60 1OTAL*”)? 

000*51 

0188 

FBCO 

F67A 



LAb 

7,0 + 3 

000252 

018 A 

9BC0 

F6AA 



LAb 

1 * T 2 4 

000*53 

01 *C 

9F87 




ST b 

1 *$B 7 

000*54 

0180 

03C0 

0000 

P 


LNj 

5, VKAU 

000*55 





* 


GET DECIMAL (CARDS SP6C1F160 ) 

000*56 





# 

* 6N0 • 


000*57 

018F 

FBCO 

F673 



LAb 

7 *0 + 3 

000*5* 

0191 

96C0 

0000 

P 


LAb 

1,CAROSS 

000*59 

0193 

9F87 




ST b 

1 «$B7 

000*60 

0194 

03C0 

0000 

P 


LNj 

5,VKGO 

000*61 





* 

*6LSt» 


000*6* 





* 

♦BEGIN* 

000*63 





* 

ASK again; 


000264 

019* 

OF* 1 

0038 



b 

L25 

000*6* 


0198 



62 1 

LQu 

$ 

000266 


0198 



L26 

EQu 

$ , 

000*67 





* 


ASK NEW QUESTION (’’RANDOM PICK DELAYS")♦ 

000*6* 

0198 

FBCO 

F66A 



LAd 

7,0+3 

000*69 

019A 

9BC0 

F6A3 



LAb 

l * T 2 7 

000*70 

019C 

9F87 




STB 

1 *$B7 

000*71 

0190 

03C0 

0000 

P 


LNJ 

5,VKANQ 

00027* 





* 


T6MP ;= * H6X * (5900); 

000*73 

019F 

6870 

5900 



LDR 

6,=2279? 

000274 

01A1 

6F40 

F65F 



STR 

6*0+1 

000*75 





# 


G6T CHAR (T6MP) 5 

000*7* 

01 A3 

FBCO 

F65F 



LAb 

7,0 + 3 

000*77 

01A5 

9BC0 

F65B 



LAb 

1*0+1 

00027* 

01A 7 

9F87 




ST b 

if$B7 

000*79 

0 1 A* 

D3C0 

0000 

P 


LNJ 

5,VKGC 

000*80 





* 


•IF* TEMP •N6• * LIT6RAL• (Y) 

000*81 





* 


•TH6N• 

000*8* 





# 


•66G1N* 

000283 

01AA 

6840 

F656 



LOR 

6,0+1 

000*84 

01 AC 

6059 




CMV 

6,89 

000*85 

01 AO 

0901 

0021 



66 

L25 t 

000*86 





# 


•IF* T6MP * N6• •L1!6RAL• (N) 

000*87 





# 


•T REN * 

000*8* 





* 


•GO TO* ASK AGAIN; 

000289 

01AF 

6046 




CMv 

6, 78 

00029U 

OlbO 

0968 




BN6 

>L26 

000*91 





* 


ASK NEW uULSTION (”VALjE$”); 

00029* 

01B1 

FBCO 

F651 



LAb 

7,0 + 3 

000*93 

0103 

9BC0 

F694 



LAb 

1 * T30 

000*94 

0165 

9F87 




ST b 

1 ♦ $b 7 

000295 

0166 

03C0 

0000 

P 


LNj 

5,VKANU 

000296 

0168 

FBCO 

F64A 



LAb 

7,0 + 3 

000*97 

016A 

9BC0 

0000 

P 


LAb 

1 ,R6SP0\ 

000*9* 

01BC 

9F87 




STB 

If $67 

000*99 

OlbO 

03C0 

0000 

P 


LNJ 

5,VKGO 

000300 





# 


G6T DECIMAL (RESPONSE)i 

000301 

016F 

F 840 

0000 

P 


LOR 

7 ,R6SP0N 

00030* 

01C1 

FB40 

0000 

P 


MUL 

7,HERTZ 

000303 





# 


RESPONSE ;= R6SPUNS6KH6rTZ/10005 

000304 

01C3 

F 370 

0368 



OiV 

7, = 1000 

000305 

01C5 

FF40 

0000 

P 


STR 

7 , RESPUN 

000306 





* 


•CODE*•BEGIN*J 



TITLE 
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000307 





* 


SUB $R6*=5O0 CHtCK REMAINDER 

00030b 





* 


BLZ $R6,>*SA 

000309 

0 1C 7 

b270 

01F 4 



SUo 

$K6,=500 

000310 

01C9 

6800 


T 


bLC 

SK6 ,> + $A 

00031 i 





* 


JCB J 

000312 





* 


INC = SR7 

000313 





* 

$A 

STR SR7 ,JRbSPONSb 

000314 

01CA 

8 AP 7 




INC 

= SR7 

000315 

OlCtJ 

F F 40 

0000 

P 

3>A 

SIR 

SK7 iRESPON 

000316 





* 


bASb := o; 

000317 

01CU 

8740 

0000 

P 


CL 

BASE 

00031b 





# 


# • END* ; 

000319 





* 

* END • 

} 

000320 


01CF 



L25 

EQu 

$ 

000321 





# 

PUT NEW TbX1 ( '’READY RANDOM DECKS"); 

000322 

01CF 

FbCO 

Fb33 



LAb 

/♦DO 

000323 

0101 

9BC0 

Fb7A 



LAb 

1»T31 

000324 

0103 

9Fb7 




STB 

1 ,Sb 7 

000323 

0104 

03C0 

0000 

P 


LNU 

5,VKPNT 

00032b 

0106 

O3C0 

0000 

P 


LNJ 

5,JWk 

000327 





* 

WAIT 

FOR return; 

00032b 





* 

kEAD 

UR PUNCH := KbAD & 0 §; 

000329 

0108 

bbOO 

0007 

A 


LOR 

6 * < 1 DWORDs 7 

000330 

010A 

bF40 

0000 

P 


STR 

6ikbADOR 

000331 





* 

CHECK 

STATE (SHOULD bb ON) ? 

000332 

010C 

FbCO 

Fb26 



LAb 

7 »D+3 

000333 

010b 

4C01 




LDv 

4,1 

000334 

010F 

CF 07 




STR 

4,Sd7 

000333 

0 1 bO 

03C0 

0000 

P 


LNj 

5 , JCS 

000336 





* 

STATUS SHOULD 3b ;= »hbX* (8000); 

000337 

01 b2 

b870 

8000 



LDR 

6,=-32768 

00033b 

0 1 b4 

LF'40 

0000 

P 


STR 

6,STATUS 

000339 

Olbb 

FBCO 

Fb 1C 



LAb 

7,D*3 

000340 

Oibb 

9bC0 

0000 

P 


LAb 

1,BUFFI 

000341 

01EA 

9F87 




ST b 

l*Sb7 

00034<: 

Olbb 

OF 00 

0007 

X 

N4 

NOP 

<IDWORD ♦ 7 

000343 

01 bO 

C840 

FFFE 



LDR 

4 , N4+ 1 

000344 

OlbF 

CF40 

F b 14 



STR 

4 , D ♦ 4 

000343 





* 

l OLD 

( BUFFER 1 fcOe,KLAD gU^tUl) t 

00034b 

01F1 

0870 

OOAb 



LDR 

5 ,= 171 

000347 

01F 3 

0F40 

Fb 11 



STR 

5,D*5 

00034b 

01F5 

03C0 

0000 

p 


LN j 

5,JIL 

000349 

0 1F 7 

03C0 

0000 

p 


LNj 

5 , JSE 

00035U 





* 

CHECK 

STATUS F JR ERRORS; 

000351 





* 

• JM 

STATUS WAS • NE * STATUS SHOULD oE 

000352 





* 

* THbN * 

000353 





* 


•oo id* start procedure; 

000354 

01F 9 

b840 

0000 

p 


LDR 

6,ST AT WA 

000355 

OlFb 

E940 

0000 

p 


CMk 

6,STATUS 

00035b 

01FO 

0981 

Fbb3 



bNb 

L3 

000357 





* 

bRRUR 

LABEL ;= *LlTbRAL* (R2) ; 

00035b 

01FF 

C870 

5232 



LDR 

4, = 21042 

000359 

0201 

CF40 

0000 

p 


STR 

4 , LABEL 1 

00036U 





* 

LRKOk 

flao := o; 

000361 

0203 

8740 

0000 

p 


CL 

ERkORF 

00036c 





* 

CLOCK 

SEMAPHORE ; = o; 

000363 

0205 

b 740 

0000 

p 


CL 

CKSEM 

000364 

0207 

0004 




DC 

4 

000365 





* 

CLUCK 

on; 

000366 





* 

KbAD ANOThbRJ 

000367 


0208 



L33 

LQu 

s 

00036b 





* 

•IF* 

• b11S * @1,15@ STATUS WAS * EU * 0 *ANp* 

000369 

020b 

b840 

0000 

p 


LDR 

6 * ST ATWA 

000370 

020A 

6801 

0038 



BLc 

6,L34 

000371 





* 

R uR V MODE • bQ • •LITERAL*(R) »ANj* 

000372 

020C 

C840 

0000 

p 


LDR 

4 , RORVMD 

000373 

020b 

4052 




CMV 

4,82 

000374 

02 OF 

0981 

0033 



bNb 

L34 

000375 





* 

CARDS RbAD »LT» CARDS SPECIFIED 

00037b 





* 

•THbN 

» 

000377 





* 

• BEG 1N • 

00037b 

0211 

0840 

0000 

p 


LDR 

5,CARDSR 

000379 

0213 

0940 

0000 

p 


CMk 

5 , CARDSS 

000380 

0215 

0881 

002P 



bAGE 

L34 

000381 

0217 

0005 




DC 

5 

000382 





* 


CLOCK off; 

000383 





* 


CARDS READ ;= CARDS READ - l; 

000384 

021b 

88C0 

0000 

p 


DEC 

CARDSR 

000385 





* 


PUT NEW TEXT ("SPECIFIED $« ); 

000386 

02 1A 

FBCO 

FPbb 



LAb 

7 , D ♦ 3 

000387 

02 1C 

9bC0 

Fb39 



LAb 

1 ,T35 

00038b 

02 1 b 

9F87 




STb 

1 tSB 7 

000389 

02 1F 

P3C0 

0000 

p 


LNj 

5,VKPNT 

000390 





* 


PUT NUMBER (CARDS SPECIFIED ); 

000391 

0221 

FbCO 

FPti 



LAb 

7 , D + 3 

00039c 

0223 

b840 

0000 

p 


LDR 

6,CARDSS 

000393 

Oc2 5 

bF 07 




STR 

6,Sb7 

000394 

022b 

P3C0 

0000 

p 


LNJ 

5, JPN 

000395 

0228 

FBCO 

F PDA 



LAb 

7,D* 3 

000396 

022A 

9BC0 

Fb32 



LAb 

1,136 

000397 

022C 

9F67 




STb 

1 ,$b 7 

00039b 

0220 

P3C0 

0000 

p 


LNJ 

5 , VKP T 

000399 





* 


PUT TEXT (", BUT READ ONLY S"); 

0U0400 

022F 

FbCO 

FPD3 



LAb 

7 , D+ 3 

000401 

0231 

b840 

0000 

p 


LDR 

6,CARDSR 

00040c 

0233 

bF 07 




STR 

6,$b7 

000403 

0234 

P3C0 

0000 

p 


LNj 

5, JPN 

000404 





* 


PUT NUMBER (CARDS READ ); 

000405 





* 


STATUS SHOULD BE ; = *HEX* (4000); 

000406 

o23b 

b870 

4000 



LDR 

6,=16384 

000407 

023b 

bF 40 

0000 

p 


STR 

6,STATUS 

00040b 





* 


•IF* ZVDTTY • EU • 0 

000409 





* 


•THEN* 

0004 1 0 

02 3 A 

C840 

0000 

p 


LDR 

4,2V$TTY 

000411 

023C 

4983 




bNbZ 

4 , >L37 

00041C 





* 


STATUS SHOULD BE 0; 

000413 

0230 

8740 

0000 

p 


CL 

STATUS 

000414 

02 3 F 

03C0 

0000 

p 

L37 

LNj 

5 ♦ USE 

000415 





* 


CHECK STATUS FOR ERRORS; 

00041b 





* 


»GU TO* END OF LETTER R; 

000417 

0241 

OF b 1 

OOAA 



b 

L38 

00041b 





* 

•END* 

; 

000419 


0243 



L34 

LQu 

S 



TITLE 
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* 

ASK 

NEW QUESTION ("CHANNEL NUMBER*" ); 

000U67 

009t 

FBCO 

FF63 




L Ao 

7 , D ♦ 2 

000068 

OOAO 

9BC0 

F F 74 




LAd 

1 , T4 

000069 

00A2 

9F8 7 





ST b 

1 ,*B7 

000070 

00A3 

03C0 

0000 


P 


LNJ 

5 , VKANU 

000071 

00A5 

FBCO 

FF5C 




LAb 

7,0 + 2 

000072 

00A7 

9BC0 

0000 


P 


LAd 

1 , CHANNE 

000073 

00A9 

9F67 





STo 

1 , SB7 

000074 

QOAA 

03C0 

0000 


P 


LNj 

5 , VKGH 

000075 






# 

OET 

HEX (CHANNEL ); 

000076 






* 

•IF* 

CHANNEL » MASK * *HtX* (FFCO) •Ew» 0 *0R* 

000077 

OOAC 

£840 

0000 


P 


LPR 

6,CHANNE 

000078 

OOAt 

£570 

FFCO 




AND 

6 , =-64 

000079 

OObO 

6901 

0000 


P 


BEE 

6 , FKESHS 

000080 






# 


CHANNEL 'MASK* *HEX* (003F) 'Nt* 0 

000081 






# 

•THEN* 

000082 






* 


*00 TO* FRESH START? 

f" ' 000063 

0062 

£840 

0000 


P 


LPR 

6 , CHANNE 

f 000084 

00b4 

£570 

003F 




ANp 

6, = 63 

00008b 

0006 

6981 

0000 


P 


BNE2 

6 , FRESHS 

K,-,' 000086 

OOBb 

FBCO 

FF49 




LAb 

7,P + 2 

000087 

OOBA 

£840 

0000 


P 


LPK 

6,CHANNE 

000088 

OOBC 

EF 07 





STR 

6,*B7 

000089 

OObO 

03C0 

0000 


P . 


LNJ 

5 ,jFC 



UTLt 


CRMS3 9 • REV G * , CARDREADER / HUNCH TV (SAb) 


PAGE 1 22 


000090 





* 

CRtAfE FUNUIUN CODES < CHANNEL) ; 


000091 





**; 




000092 





* 

* COMMENT• CLEAR CHANNEL * HAY BE bUSY; 


000093 





## ; 



/ \ 

000094 

OOBb 

FbCO 

F F42 



LAd 

7 , D + 2 


00009b 

00C1 

9BC0 

0000 

H 


LAb 

1,BINARY 

1 / 

000096 

00C3 

9F87 




Sib 

1,$B7 


000U97 





* 


INQUI (INITIALIZE, OUTPUT CONTROL @U@) i 


000096 





*# ; 




000099 





*# 

IDENTIFY DEVICE? 


000100 





*#; 




000101 

00C4 

A6C0 

0000 

P 


LAb 

2,1 DWORD 


000102 

00C6 

AF CO 

FF3C 



STb 

2, D+3 


000103 

00C6 

D3C0 

0000 

P 


LNj 

5, J10 


000104 

OOCA 

FBCO 

FF3 7 



LAb 

7 , D ♦ 2 


00010 b 

OOCC 

9 BC0 

0000 

P 


LAb 

1 ,1 D 


000106 

ooce 

9F67 




ST b 

1 , $ B 7 


000107 





* 


1N0UT (ID,INPUT DEVICE ID @0@); 


000108 

OOCF 

OF 00 

0000 

A 

N1 

NOP 

< I DWORDs 13 


000109 

0001 

E840 

FFFE 



LDR 

6 , N1 + 1 


0001 lu 

0003 

EF40 

FF2F 



STR 

6,0+3 


000111 

0005 

03C0 

0000 

P 


LNj 

5 , JIO 


oooiu 

0007 

E840 

0000 

P 


LDR 

6 ,1 D 


000113 

0009 

E970 

2008 



ChR 

6,=8200 


0001 u 

000 b 

0901 

0023 



bt 

L 7 


00011 b 





* 


•IF* ID • NE* * HEX * (2008) * AND * ID *NE* •HEX* (208A) »ANP» 


000116 

0000 

E970 

208A 



CMR 

6 , = 8330 


000117 

000 b 

0901 

00 1F 



BE 

L 7 


000116 





* 


ID *NE* *HEX* (2088) 


000119 





* 


•THEN* 


000120 





# 


•BEGIN* 


000121 

oou 

E970 

2086 



CHR 

6 , = 8328 


000122 

00E3 

0901 

001 b 



BE 

L7 


000123 





* 


LABEL2 ;= •LITERAL* (ID); 


000124 

DOES 

C870 

4944 



LDR 

4, = 18756 


00012 b 

0 0 E 7 

CF 40 

0000 

P 


STR 

4, LABEL 2 


000126 

00E9 

0840 

0000 

P 


LDR 

$Rb , CHA NNE 


000127 

OOEB 

C840 

0000 

P 


LDR 

$R4 , 1D 


000126 





* 


LOAD R4 R5 (ID, CHANNEL); 


000129 

OOEO 

03C0 

0000 

P 


LNJ 

5 , JRE 


000130 





* 


REPORT ERROR? 


000131 





# 


PUT NEW TtXT (», WRUNG DEVICE ON CHANNEL*" ) i 


000132 

GOEF 

FbCO 

FF 12 



LAd 

7,D+2 


000133 

OQbl 

9BC0 

F F 2 C 



LAb 

l,T8 


000134 

00F3 

9b 67 




ST d 

1 , SB 7 


00013b 

00b4 

03 CO 

0000 

P 


LNJ 

5 , VKPNT 


000136 

00 F6 

FBCO 

FFOB 



LAb 

7 , D+2 


00013 7 

OOFtt 

E640 

0000 

P 


LDR 

6 , CHANNE 


000136 

OOFm 

EF07 




STR 

6 , S B 7 


000139 

OOFB 

03C0 

0000 

P 


LNJ 

5 , VKPH 


000140 





* 


PUT HEX (CHANNEL ) 5 


000141 





* 


•GO TO* FRESH START; 


00014^ 

00 FO 

63C0 

0000 

P 


JMP 

FRESHS 


000143 





* 


•END* ; 


000144 


OOFF 



L7 

EQu 

s 


00014b 





* 


•CODE* » BEGIN » I 

\ 

000146 





* 


STS = SR7 

/ ■ \ 

> 

000147 





* 


STR SR 7 * ) SREG 

Vj, Jf 

000146 

OOF b 

8C57 




STS 

= $R7 

X . s 

000149 

0100 

r F40 

0000 

P 


STR 

SR7 , SRE o 


OOOlbO 





* 


•IF* »BiTS* @l,lb@ SREG *EQ* 1 


OOOlbl 





* 


•then* 


000152 





* 


•BEGIN* 


000153 

0102 

E840 

0000 

P 


LDR 

6 ,SREG 


000154 

0104 

6881 

0012 



6 Gl2 6 « L9 


000155 





* 


LABEL 2 ;= ’LITERAL* (CL) ? 


000156 

0106 

C870 

434C 



LDR 

4 , = 17226 


000157 

0106 

CF40 

0000 

P 


STR 

4,LABEL2 


000156 

010A 

0840 

0000 

P 


LDR 

SR5 , SET T OA 


000159 

010C 

C840 

0000 

P 


LDR 

SR4 , SRE o 


000160 





* 


LUAD R4 R5 (SREG, CLEAR); 


000161 

010 E 

03C0 

0000 

P 


LNJ 

b , JRE 


000162 





* 


REPORT ERROR; 


000163 

0110 

FBCO 

FEF1 



LAd 

7 , D ♦ 2 


000164 

0112 

9 BC0 

FF 19 



LAb 

1 , T 10 


000165 

0114 

9F 67 




STb 

1 , SB7 


000166 

0115 

03C0 

0000 

P 


LNJ 

b,VKPT 


000167 





# 


PUT TEXT (", CHECK UGHI ONS"); 


000166 





* 


•end* ; 


000169 


0117 



19 

EOU 

$ 


000170 





* 


» I F * TEST TYPE * NE * 0 


000171 





# 


•THEN* 


000172 





* 


•GO TO* SKIP POWER QUESTION; 


000173 

0117 

E840 

0000 

P 


LDR 

6 , TESTT Y 


000174 

0119 

69A2 




bNtZ 6 ,>L 12 


000175 





* 

HERTZ ;= 60; 


000176 

011A 

4C3C 




LDV 

4,60 


000177 

011 b 

CF40 

0000 

P 


STR 

4,HERTZ 


000176 





* 


•IF* 'BITS* @1,130 SREG •EQ* 1 


000179 





* 


•THEN* 


000160 





* 


•GO TO* NO POWER QUESTION; 


000181 





##; 




000182 





** 

POKER QUESTION ON 6/34 OR 6/36; 


000183 





#*; 




000184 

0110 

62C0 

0000 

P 


LB 

SREG,Z•2000• 



011 F 

2000 







000185 

0120 

0516 




BBT 

>L 16 


000186 





* 

ASK NEW QUESTION ('’POWER FREQUENCY*" )s 


000187 

0121 

FBCO 

FEEO 



LAb 

7 ,D+2 


000186 

0123 

9BC0 

FF12 



LAb 

11 T 1 5 


000189 

0125 

9F87 




STB 

1 , SB7 


000190 

U126 

03C0 

0000 

P 


LNj 

5 , VKANQ 


000191 

0126 

FBCO 

FED 9 



LAb 

7,0 + 2 


000192 

012A 

9BC0 

0000 

P 


LAb 

1,HERTZ 


000193 

0 12C 

9F87 




STb 

1 , $B7 


000194 

0120 

O3C0 

0000 

P 


LNj 

5 , VKGD 


000195 





# 

GET DECIMAL (HERTZ )S 

_ 

000196 

012F 

E840 

0000 

P 


LDR 

6 ,HERTZ 

4 ' 

000197 

0131 

6032 




CMV 

6,50 

I 

000196 

0132 

0904 




BE 

>L 16 

1 j 

000199 





* 


•IF* HERTZ • NE * 50 ' AND* HERTZ *NE» 60 


000200 





* 


•THEN* 


000201 





# 


•GO TO* FRESH START; 















TITLE 

CRMS3* 

•REV 0* 

iCAKDREADER / PUNCH fV (SAF) PAGE 123 


000202 





* 

NO POWER QUESTION? 


000203 

0133 

6D3C 




C MV 

6*60 


000204 

0134 

0981 

0000 

P 


BNfc 

FKfcSHS 


00020b 

0136 

E840 

0000 

P 

L16 

LOR 

6,HERTZ 

I 

00020b 

0138 

6001 




SOL 

6 % 1 

1 ,, 

000207 

0139 

EF 40 

0000 

P 


STR 

6 *HbkTZ 


000208 





# 

HERTl ? = HERTZ * 2 ; 


000209 





* 

SKIP POWER QUEST ION; 


000210 


013b 



L12 

EOU 

S 


000211 





# 

PUESOO CARO STATUS ; = 0? 


000212 





*# ; 




000213 





** 

SKIP MARK SENSt QUEST IONS IF ONLY A PUNCH? 


000214 





** ; 




00021b 

013b 

6 740 

0000 

P 


CL 

PUESOO 


000216 





* 


•IF* 10 1 NE•* HEX• (2008) 


000417 





* 


•THEN* 


000218 





# 


•GO TO* SET LEVEL AND ISA? 


000419 





#*; 




000220 





*# 

MARK SlNSE AND COLUMN NUMBER? 


000221 





## ; 




000222 





* 

ASK MARK bENSE QUESTION: 


000423 

0130 

E840 

0000 

P 


LOR 

6*10 


000224 

013F 

E970 

2006 



CMR 

6 * = 8200 


00042b 

0141 

0961 

0070 



BNt 

L29 


000226 


0143 



L20 

EQU 

S 


00022 7 





* 

ASK NEW QUESTION ("MARK SENSES" ); 


000226 

0143 

FBCO 

FEBE 



LAd 

7*0 + 2 


000229 

0145 

9BC0 

FEF9 



LAd 

1*121 


000230 

014/ 

9F67 




STb 

1 *SB7 


000231 

014b 

D3C0 

0000 

P 


LNj 

5 *VKANQ 


000234 





* 

TEMP CHARACTER ? = *HEX* (4E0D)i 


0O0233 

0 14A 

E870 

4E00 



LOK 

6♦=1998 1 


000234 

0140 

EF 40 

FEB4 



ST K 

6*0+1 


00023b 

0 141 

FbCO 

FEB3 



LAb 

7*0 + 2 


000236 

0150 

9BC0 

FEBO 



LAb 

1 *0+1 


000237 

0152 

9F8 7 




STb 

l %SB7 


000236 

0153 

D3C0 

0000 

P 


LNj 

5 *VKGC 


000*39 





# 

GET CHAR (TEMP CHARACTER ); 


000440 





* 


•IF* TEMP CHARACTER * EQ* * L I 1ERAL * (N) 


000241 





* 


•then* 


000242 





* 


•GO TO* CHECK SWITCHES? 


000243 

0155 

E840 

FEAB 



LOR 

6*0+1 


000444 

0157 

6Q4E 




CM V 

6,78 


00024b 

0156 

0926 




BE 

>L27 


000446 





* 


•IF* TEMP CHARACTER * EQ * » LI1ERAL• (Y) 


000247 





* 


» THEN* 


000446 





* 


•BEGIN* 


000449 





* 

ASK COLUMN question; 


0004 bo 

0159 

6059 




CMV 

6,89 


0002b1 

0 1 5A 

09E9 




bNE 

>L20 


0004b2 


015B 



L25 

EQu 

S 


000253 





* 


PUESOO CARO STA1US ;= *HtA* (1000)? 


000254 

015b 

E870 

1000 



LOk 

6 * = 4096 


00025b 

0150 

EF40 

0000 

P 


STR 

6 * PUESOO 


000256 





* 


ASK NEW QUESTION ("40 COlUMNS$»); 

4 

00025/ 

0151- 

FBCO 

FEA2 



LAd 

7*0 + 2 

K 

00025b 

0161 

9BC0 

FEE4 



LAb 

1 * T26 

1 

000259 

0163 

9F67 




Sib 

1 * Sb 7 


000260 

0 1 64 

D3C0 

0000 

P 


LNJ 

5,VKANQ 


000261 





* 


TEMP CHARACTER ;= *HEX* (4E00); 


000262 

0166 

E870 

4E0D 



LOR 

6**19981 


000463 

0166 

EF 40 

F E98 



STR 

6*0+1 


00U264 

0 16 A 

FBCO 

F19 7 



LAb 

7,0 + 2 


000265 

016C 

96C0 

F E94 



LAb 

1,0+1 


OOO 466 

016L 

9F87 




STb 

1 *Sb7 


000267 

016*- 

03C0 

OOOO 

P 


LNj 

5,VKGC 


OOO 466 





* 


GE1 CHAR (TEMP CHARACTER ); 


000269 





* 


•IF* TEMP CHARACTER *EQ* * LITfc.RAL * <N) 


000270 





* 


•THEN* 


000271 





* 


»GU TU* CHECK SWITCHES? 


000272 

0171 

E840 

FE8F 



ldk 

6,0+1 


000473 

0173 

604b 




CMv 

6,78 


000474 

0174 

090 A 




BE 

>L2 7 


000475 





* 


•IF* TEMk CHARACTER * tQ * •LITERAL * < Y> 


0002 76 





* 


•THEN* 


000277 





* 


•BEGIN* 


000278 

0175 

6059 




CMv 

6,89 


000279 

0176 

09E5 




BNE 

>L25 


000280 





* 


PUESOO CARO BTATUS ; = *H£X* (1800) 


000281 

0177 

C870 

1800 



LOR 

4,=6144 


000282 

0179 

CF40 

0000 

P 


STR 

4 * PUESOO 


000283 





# 


NUMBER OF CuLUMNS ;= 40? 


000284 





* 


•END* 


000285 

017b 

5C28 




LDV 

5,40 


000286 

017C 

OF 40 

0000 

P 


SIR 

5,NUMBER 


000287 





* 


•ELSE* 


000288 





* 


•GO TO* AbK COLUMN QUESTION? 


000489 





* 


* END* 


000290 





* 


•ELSE* 


000291 





* 


•GO TO* ASK MARK SENSE QUESTION? 


000292 





**; 




000293 





** 1 

CHECK FOR 

PROPER SETTING OF CAROREAOER SWITCHES? 


000294 





*#; 




000295 





* 

CHECK 

swikhes: 


000296 





* 


•BEGIN* 


000297 

01 71 

FBCO 

FE8 3 


L27 

LAb 

7,0+2 


000498 

0160 

9BC0 

0000 

P 


LAb 

1,ST AI WA 


000299 

0162 

9F67 




STb 

1 * $b 7 


00030U 





ik 


1N0UI (STATUS WAS * 1NPU1 STATUS WORD @0£) * 


000301 

0183 

OF 00 

000 c 

X 

N2 

NOP 

< 1OWORO+12 


000302 

016b 

E840 

FFFE 



LOR 

6 , N2+1 


000303 

0187 

EF40 

FE7B 



STR 

6*0+3 


000304 

0189 

D3C0 

0000 

p 


LNJ 

5 * J10 


000305 





* 


•IF* * b 1I S* fc3*10& STAIUS WAS • NE • 


000306 





* 


•BUS* fc3,10© PUEBOU CARq STATUS 


000307 





# 


* 1 H E N » 


00030b 





* 


•BEGIN* 

r \ 

000309 

016b 

E2C0 

0000 

p 


LLH 

6 * SlATWA 

I 

000310 

0160 

6055 




SCR 

6*5 

1 

000311 

018E 

6040 




sok 

6*13 


000312 

018F 

C2C0 

0000 

p 


LLh 

4 * PUESOO 


000313 

0191 

4055 




SCR 

4*5 


000314 

0192 

4040 




SOK 

4*13 




1 IT 00 

CRMS3, 

»KOV C* 

,CAKDROAPOR 

J PUNCH 

1 TV (SAF) PACO 124 



00U3 15 

0193 

0954 




CMR 

6 f = $K4 



000316 

0194 

0901 

002A 



BO 

029 



000317 





# 


0A300 2 ;= 'OITOKAO* (Srt)5 


,g~ • X 

00031b 

0196 

0870 

335 / 



OPR 

39=21335 


m ■ t 

000319 

0196 

0F40 

0000 

P 


ST R 

5 90AB002 


1 

000320 





# 


STATUS SHOOOP Bt ; = STAiUS WAS »MASK* 

•HEX* (COOO) 


000321 





* 


•UNION* PUESDO CARP STATUSi 


000322 

019A 

F840 

0000 

P 


LPK 

7,STAT WA 



000323 

0190 

F 570 

cooo 



ANU 

/,=-16384 



000324 

0196 

F 440 

0000 

P 


OK 

7 9 POOSPJ 



000323 

01 AO 

FF40 

0000 

P 


SIR 

7,STATUS 



000326 

01A2 

0840 

0000 

P 


LPk 

SR5 9 STA IUS 



000327 

01A4 

0840 

0000 

P 


LPR 

SK49STATWA 



00032b 

01A6 

03C0 

0000 

P 


LNj 

5 , JRO 



000329 





# 


REPORT error; 



000330 

01 A 8 

FbCO 

F 059 



LAb 

7,0+2 



000331 

01AA 

0840 

0000 

P 


OUR 

6 9 ST ATWA 



000332 

01 AO 

OF 0 7 




STR 

6 9 SB7 



000333 

OiAU 

03C0 

0000 

P 


ON J 

5,VKPH 



000334 





* 


PUT HOX (STATUS WAB); 



000333 

01AF 

FbCO 

F052 



OAb 

7 9 P+2 



000836 

Olbl 

0640 

0000 

P 


OPR 

6 ,STATUS 



000337 

0 lb3 

tF 07 




STR 

6 ,SB/ 



00033b 

01B4 

03C0 

0000 

P 


ONb 

5,VKPH 



000339 





* 


POI HOX (STATUS SHUUOP uO); 



000340 





* 


PUT NOW TOXT (”SWIICHOS INCORRECT UK 

APAP f 0R $ H )1 


000341 

0166 

FbCO 

F04B 



lAd 

7 ♦ P ♦ 2 



000 34,2 

Olbb 

9bC0 

F094 



OAb 

1»T3Q 



000343 

OlbA 

9F87 




ST b 

1 9 SB7 



000344 

OiBb 

O3C0 

0000 

P 


ON j 

5 9 VKPNT 



000343 





* 


•GJ TO* FKOSH STAR 1 ; 



000346 

Olbp 

63C0 

0000 

P 


JMP 

FKOSHS 



000347 





* 


• ONP*; 



00034b 





* 

* onu *; 



000349 





# 

SOT OOVOL 

ANP ISA; 



000350 

OlbF 

9840 

0000 

P 

L29 

OPR 

i,ZVSAF 



000351 

01 C 1 

1005 




AP V 

195 



000352 





* 

ISA 

FOR PROGRAM £5+ZV0AF§ ;= SR0G5 (SAVO PRIVIOOPGOP BITS + CPIP) 


000353 

01 C 2 

0840 

0000 

P 


OPR 

69 SKOG 



000354 

01C4 

OF 10 

0000 

X 


SIR 

6 ,<1 SAP•$K1 



000355 

01 C 6 

9840 

0000 

p 


OPR 

1,2VSAF 



000356 

OlCb 

1005 




APv 

1 9 5 



000357 





# 

ISA 

FOR P0V1C0 @5 + ZV0AF6' ;= SKOG? 



00035b 

0109 

0840 

0000 

p 


OPR 

6 9 SRtG 



000359 

010 b 

OF 10 

0000 

X 


STR 

6 9 <I SAP•$K1 



000360 

0100 

9840 

0000 

p 


OPR 

UZVSAF 



000361 

010 F 

1005 




APV 

1 95 



000362 





* 

ISA 

FOR COOCK £3 +ZVOAF £ ;= SR0G5 



000363 

0100 

0840 

0000 

p 


OPR 

6 9 SROG 



000364 

0102 

OF 10 

0000 

X 


STR 

6 ,<I SAC•$R1 



000365 





* 

ISA 

FOR PROGRAM fe-3e ;= *HOX» ( /FFF) ♦ (SAVE AOO REGISTERS BUT IM) 


000366 

0104 

0870 

7FFF 



ODK 

6,=32767 



000367 

0106 

0F40 

0003 

p 


STR 

69 ISAP +3 



00036b 





* 

ISA 

FOR POVICO £3£ := * HOX * ( /FFF) i 



000369 

010 b 

0F40 

0003 

p 


STR 

69 ISAP +3 



000370 





# 

ISA 

FOR COOCK &3<e ;= *HOX» ( /FFF)« 


f . 

000371 

010A 

OF40 

0003 

p 


STR 

6 ,1SAC + 3 



000372 

0100 
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